ui.gadgets.slate: init-slate

db4
Eduardo Cavazos 2008-07-29 21:15:54 -05:00
parent 80c599e9ea
commit c7048ccacc
1 changed files with 12 additions and 5 deletions

View File

@ -5,12 +5,19 @@ IN: ui.gadgets.slate
TUPLE: slate < gadget action pdim graft ungraft ; TUPLE: slate < gadget action pdim graft ungraft ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: init-slate ( slate -- slate )
init-gadget
[ ] >>action
{ 200 200 } >>pdim
[ ] >>graft
[ ] >>ungraft ;
: <slate> ( action -- slate ) : <slate> ( action -- slate )
slate new-gadget slate new
swap >>action init-slate
{ 100 100 } >>pdim swap >>action ;
[ ] >>graft
[ ] >>ungraft ;
M: slate pref-dim* ( slate -- dim ) pdim>> ; M: slate pref-dim* ( slate -- dim ) pdim>> ;