factor/extra/ui/gadgets/slate/slate.factor

22 lines
527 B
Factor
Raw Normal View History

2007-09-20 18:09:08 -04:00
USING: kernel namespaces opengl ui.render ui.gadgets ;
IN: ui.gadgets.slate
TUPLE: slate action dim graft ungraft ;
: <slate> ( action -- slate )
slate construct-gadget
tuck set-slate-action
{ 100 100 } over set-slate-dim
[ ] over set-slate-graft
[ ] over set-slate-ungraft ;
2007-09-20 18:09:08 -04:00
M: slate pref-dim* ( slate -- dim ) slate-dim ;
M: slate draw-gadget* ( slate -- )
origin get swap slate-action with-translation ;
M: slate graft* ( slate -- ) slate-graft call ;
M: slate ungraft* ( slate -- ) slate-ungraft call ;