steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Unified toolbar 

New toolbar with a grey background.
db4
nicolas-p 2015-07-18 13:19:31 +02:00 committed by John Benediktsson
parent 8a1c75fbed
commit bf74e394ba
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/gadgets/buttons/buttons.factor
View File

@ -121,7 +121,7 @@ PRIVATE>
[ append theme-image ] tri-curry@ tri [ append theme-image ] tri-curry@ tri
] 2dip <tile-pen> ; ] 2dip <tile-pen> ;
CONSTANT: button-background COLOR: FactorTan CONSTANT: button-background COLOR: grey95
CONSTANT: button-clicked-background COLOR: FactorDarkSlateBlue CONSTANT: button-clicked-background COLOR: FactorDarkSlateBlue
: <border-button-pen> ( -- pen ) : <border-button-pen> ( -- pen )
@ -253,4 +253,7 @@ PRIVATE>
bi assoc-each ; bi assoc-each ;
: add-toolbar ( track -- track ) : add-toolbar ( track -- track )
dup <toolbar> { 3 3 } <border> align-left f track-add ; dup <toolbar> { 3 3 } <border>
button-background <solid> >>interior
COLOR: grey75 <solid-underlined> >>boundary
align-left f track-add ;