basis/ui/pens/pens.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel ;
   4 IN: ui.pens
   5
   6 GENERIC: draw-interior ( gadget pen -- )
   7
   8 GENERIC: draw-boundary ( gadget pen -- )
   9
  10 GENERIC: pen-background ( gadget pen -- color )
  11
  12 M: object pen-background 2drop f ;
  13
  14 GENERIC: pen-foreground ( gadget pen -- color )
  15
  16 M: object pen-foreground 2drop f ;
  17
  18 GENERIC: pen-pref-dim ( gadget pen -- dim )
  19
  20 M: object pen-pref-dim 2drop { 0 0 } ;