basis/ui/gadgets/icons/icons.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel accessors ui.images ui.pens
   4 ui.pens.image ui.gadgets ;
   5 IN: ui.gadgets.icons
   6
   7 TUPLE: icon < gadget ;
   8
   9 : <icon> ( image-name -- icon )
  10     icon new swap <image-pen> t >>fill? >>interior ;
  11
  12 M: icon pref-dim* dup interior>> pen-pref-dim ;