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 ui.gadgets ui.render
   5 ui.text 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 ; inline
  19
  20 : focus-border-color ( -- color ) medium-purple ; inline
  21
  22 : plain-gradient ( -- gradient )
  23     {
  24         T{ gray f 0.94 1.0 }
  25         T{ gray f 0.83 1.0 }
  26         T{ gray f 0.83 1.0 }
  27         T{ gray f 0.62 1.0 }
  28     } <gradient> ;
  29
  30 : rollover-gradient ( -- gradient )
  31     {
  32         T{ gray f 1.0  1.0 }
  33         T{ gray f 0.9  1.0 }
  34         T{ gray f 0.9  1.0 }
  35         T{ gray f 0.75 1.0 }
  36     } <gradient> ;
  37
  38 : pressed-gradient ( -- gradient )
  39     {
  40         T{ gray f 0.75 1.0 }
  41         T{ gray f 0.9  1.0 }
  42         T{ gray f 0.9  1.0 }
  43         T{ gray f 1.0  1.0 }
  44     } <gradient> ;
  45
  46 : selected-gradient ( -- gradient )
  47     {
  48         T{ gray f 0.65 1.0 }
  49         T{ gray f 0.8  1.0 }
  50         T{ gray f 0.8  1.0 }
  51         T{ gray f 1.0  1.0 }
  52     } <gradient> ;
  53
  54 : lowered-gradient ( -- gradient )
  55     {
  56         T{ gray f 0.37 1.0 }
  57         T{ gray f 0.43 1.0 }
  58         T{ gray f 0.5  1.0 }
  59     } <gradient> ;