ui.gadgets.slate: init-slate

2008-07-29 21:15:54 -05:00 · 2008-07-29 21:15:54 -05:00 · c7048ccacc
parent 80c599e9ea
commit c7048ccacc
1 changed files with 12 additions and 5 deletions
--- a/extra/ui/gadgets/slate/slate.factor
+++ b/extra/ui/gadgets/slate/slate.factor
@ -5,12 +5,19 @@ IN: ui.gadgets.slate

 TUPLE: slate < gadget action pdim graft ungraft ;

+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: init-slate ( slate -- slate )
+  init-gadget
+  [ ]         >>action
+  { 200 200 } >>pdim
+  [ ]         >>graft
+  [ ]         >>ungraft ;
+
 : <slate> ( action -- slate )
-  slate new-gadget
-    swap        >>action
-    { 100 100 } >>pdim
-    [ ]         >>graft
-    [ ]         >>ungraft ;
+  slate new
+    init-slate
+    swap >>action ;

 M: slate pref-dim* ( slate -- dim ) pdim>> ;