basis/ui/gadgets/theme/theme.factor

   1 ! Copyright (C) 2009, 2010 Slava Pestov, Joe Groff.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors io.pathnames sequences ui.images ui.theme ;
   4 IN: ui.gadgets.theme
   5
   6 : theme-image ( name -- image-name )
   7     "vocab:ui/gadgets/theme/" prepend-path ".tiff" append <image-name> ;
   8
   9 : theme-font-colors ( gadget -- gadget )
  10     [ content-background >>background text-color >>foreground ] change-font ;