! 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 ;
: <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