steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/ui/gadgets/slate/slate.factor
View File

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