1 ! Copyright (C) 2009 Slava Pestov.
2 ! See https://factorcode.org/license.txt for BSD license.
6 GENERIC: draw-interior ( gadget pen -- )
8 GENERIC: draw-boundary ( gadget pen -- )
10 GENERIC: pen-background ( gadget pen -- color )
12 M: object pen-background 2drop f ;
14 GENERIC: pen-foreground ( gadget pen -- color )
16 M: object pen-foreground 2drop f ;
18 GENERIC: pen-pref-dim ( gadget pen -- dim )
20 M: object pen-pref-dim 2drop { 0 0 } ;