ui.gadgets.slate: call doesn't work on 'f'. fix related pit.

release
Eduardo Cavazos 2007-09-26 16:43:17 -05:00
parent 2ff05e7496
commit 08192267fe
1 changed files with 3 additions and 1 deletions

View File

@ -8,7 +8,9 @@ TUPLE: slate action dim graft ungraft ;
: <slate> ( action -- slate )
slate construct-gadget
tuck set-slate-action
{ 100 100 } over set-slate-dim ;
{ 100 100 } over set-slate-dim
[ ] over set-slate-graft
[ ] over set-slate-ungraft ;
M: slate pref-dim* ( slate -- dim ) slate-dim ;