basis/ui/gadgets/theme/theme.factor

   1 ! Copyright (C) 2005, 2008 Slava Pestov.
   2 ! Copyright (C) 2006, 2007 Alex Chapman.
   3 ! See http://factorcode.org/license.txt for BSD license.
   4 USING: arrays kernel sequences io.styles ui.gadgets ui.render
   5 colors colors.gray accessors ;
   6 QUALIFIED: colors
   7 IN: ui.gadgets.theme
   8
   9 : solid-interior ( gadget color -- gadget )
  10     <solid> >>interior ; inline
  11
  12 : solid-boundary ( gadget color -- gadget )
  13     <solid> >>boundary ; inline
  14
  15 : faint-boundary ( gadget -- gadget )
  16     colors:gray solid-boundary ; inline
  17
  18 : selection-color ( -- color ) light-purple ;
  19
  20 : plain-gradient ( -- gradient )
  21     {
  22         T{ gray f 0.94 1.0 }
  23         T{ gray f 0.83 1.0 }
  24         T{ gray f 0.83 1.0 }
  25         T{ gray f 0.62 1.0 }
  26     } <gradient> ;
  27
  28 : rollover-gradient ( -- gradient )
  29     {
  30         T{ gray f 1.0  1.0 }
  31         T{ gray f 0.9  1.0 }
  32         T{ gray f 0.9  1.0 }
  33         T{ gray f 0.75 1.0 }
  34     } <gradient> ;
  35
  36 : pressed-gradient ( -- gradient )
  37     {
  38         T{ gray f 0.75 1.0 }
  39         T{ gray f 0.9  1.0 }
  40         T{ gray f 0.9  1.0 }
  41         T{ gray f 1.0  1.0 }
  42     } <gradient> ;
  43
  44 : selected-gradient ( -- gradient )
  45     {
  46         T{ gray f 0.65 1.0 }
  47         T{ gray f 0.8  1.0 }
  48         T{ gray f 0.8  1.0 }
  49         T{ gray f 1.0  1.0 }
  50     } <gradient> ;
  51
  52 : lowered-gradient ( -- gradient )
  53     {
  54         T{ gray f 0.37 1.0 }
  55         T{ gray f 0.43 1.0 }
  56         T{ gray f 0.5  1.0 }
  57     } <gradient> ;
  58
  59 : sans-serif-font { "sans-serif" plain 12 } ;
  60
  61 : monospace-font { "monospace" plain 12 } ;