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: io.pathnames sequences ui.images ;
   4 IN: ui.gadgets.theme
   5
   6 : theme-image ( name -- image-name )
   7     "vocab:ui/gadgets/theme/" prepend-path ".tiff" append <image-name> ;