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

ui.gadgets.tabbed: use named color constant.

db4
John Benediktsson 2015-07-19 12:49:34 -07:00
parent 109c7328bb
commit 2c4ed220b5
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
basis/ui/gadgets/tabbed/tabbed.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors colors kernel models sequences ui.gadgets USING: accessors colors.constants kernel models sequences
ui.gadgets.books ui.gadgets.borders ui.gadgets.buttons ui.gadgets ui.gadgets.books ui.gadgets.borders
ui.gadgets.buttons.private ui.gadgets.icons ui.gadgets.packs ui.gadgets.buttons ui.gadgets.buttons.private ui.gadgets.icons
ui.gadgets.theme ui.gadgets.tracks ui.pens ; ui.gadgets.packs ui.gadgets.theme ui.gadgets.tracks ui.pens ;
IN: ui.gadgets.tabbed IN: ui.gadgets.tabbed
TUPLE: tabbed-gadget < track tabs book ; TUPLE: tabbed-gadget < track tabs book ;
@ -13,14 +13,7 @@ TUPLE: tabbed-gadget < track tabs book ;
: <lip> ( -- gadget ) : <lip> ( -- gadget )
"active-tab-lip" theme-image <icon> ; "active-tab-lip" theme-image <icon> ;
CONSTANT: active-tab-background CONSTANT: active-tab-background COLOR: FactorDarkTan
T{ rgba
f
0.6745098039215687
0.6549019607843137
0.5764705882352941
1.0
}
: <tab-pen> ( -- pen ) : <tab-pen> ( -- pen )
"inactive-tab" button-background f <border-button-state-pen> dup dup "inactive-tab" button-background f <border-button-state-pen> dup dup