ui.gadgets.tabbed: use named color constant.

basis/ui/gadgets/tabbed/tabbed.factor

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