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
|
2007-09-26 17:43:17 -04:00
|
|
|
{ 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 ;
|