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

Use colour constants

db4
nicolas-p 2015-07-18 15:48:02 +02:00 committed by John Benediktsson
parent 376eb20f8b
commit ae9b9b59eb
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -123,6 +123,7 @@ PRIVATE>
CONSTANT: button-background COLOR: grey95 CONSTANT: button-background COLOR: grey95
CONSTANT: button-clicked-background COLOR: FactorDarkSlateBlue CONSTANT: button-clicked-background COLOR: FactorDarkSlateBlue
CONSTANT: toolbar-border COLOR: grey75
: <border-button-pen> ( -- pen ) : <border-button-pen> ( -- pen )
"button" button-background button-clicked-background "button" button-background button-clicked-background
@ -255,5 +256,5 @@ PRIVATE>
: add-toolbar ( track -- track ) : add-toolbar ( track -- track )
dup <toolbar> { 3 3 } <border> dup <toolbar> { 3 3 } <border>
button-background <solid> >>interior button-background <solid> >>interior
COLOR: grey75 <solid-underlined> >>boundary toolbar-border <solid-underlined> >>boundary
align-left f track-add ; align-left f track-add ;

2
basis/ui/gadgets/status-bar/status-bar.factor
View File

@ -26,7 +26,7 @@ CONSTANT: status-bar-foreground COLOR: white
: open-status-window ( gadget title/attributes -- ) : open-status-window ( gadget title/attributes -- )
?attributes f <model> >>status <world> ?attributes f <model> >>status <world>
dup status>> <status-bar> dup status>> <status-bar>
{ 7 2 } <border> COLOR: FactorDarkSlateBlue <solid> >>interior { 7 2 } <border> status-bar-background <solid> >>interior
{ 1 1 } >>fill { 1 1 } >>fill
f track-add f track-add
open-world-window ; open-world-window ;

8
basis/ui/tools/browser/browser.factor
View File

@ -37,10 +37,12 @@ M: browser-gadget set-history-value
: <help-header> ( browser-gadget -- gadget ) : <help-header> ( browser-gadget -- gadget )
model>> [ '[ _ $title ] try ] <pane-control> ; model>> [ '[ _ $title ] try ] <pane-control> ;
CONSTANT: help-header-background COLOR: FactorLightTan
: add-help-header ( track -- track ) : add-help-header ( track -- track )
dup <help-header> { 3 3 } <border> dup <help-header> { 3 3 } <border>
COLOR: FactorLightTan <solid> >>interior help-header-background <solid> >>interior
COLOR: grey75 <solid-underlined> >>boundary toolbar-border <solid-underlined> >>boundary
{ 1 0 } >>fill f track-add ; { 1 0 } >>fill f track-add ;
: <help-pane> ( browser-gadget -- gadget ) : <help-pane> ( browser-gadget -- gadget )
@ -70,7 +72,7 @@ M: browser-gadget set-history-value
: add-browser-toolbar ( track -- track ) : add-browser-toolbar ( track -- track )
dup <browser-toolbar> { 3 3 } <border> dup <browser-toolbar> { 3 3 } <border>
button-background <solid> >>interior button-background <solid> >>interior
COLOR: grey75 <solid-underlined> >>boundary toolbar-border <solid-underlined> >>boundary
{ 1 0 } >>fill f track-add ; { 1 0 } >>fill f track-add ;
: <browser-gadget> ( link -- gadget ) : <browser-gadget> ( link -- gadget )