diff --git a/basis/ui/gadgets/tabbed/tabbed.factor b/basis/ui/gadgets/tabbed/tabbed.factor index c76492308e..b4be4ef323 100644 --- a/basis/ui/gadgets/tabbed/tabbed.factor +++ b/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 ; : ( -- gadget ) "active-tab-lip" theme-image ; -CONSTANT: active-tab-background - T{ rgba - f - 0.6745098039215687 - 0.6549019607843137 - 0.5764705882352941 - 1.0 - } +CONSTANT: active-tab-background COLOR: FactorDarkTan : ( -- pen ) "inactive-tab" button-background f dup dup