new accessors

diff --git a/extra/springies/ui/ui.factor b/extra/springies/ui/ui.factor
index f9a97ba945aaddb4e861d8fb43ad37dbce53902c..423a68cf0d3db0bc3300a64babd8d01ce6380644 100644 (file)
--- a/extra/springies/ui/ui.factor
+++ b/extra/springies/ui/ui.factor
@@ -52,16 +52,14 @@ DEFER: maybe-loop
 
 : springies-window* ( -- )
 
-  C[ display ] <slate> >slate
-    { 800 600 }                                      slate> set-slate-pdim
-    C[ { 500 500 } >world-size loop on [ run ] in-thread ]
-      slate> set-slate-graft
-    C[ loop off ]                                    slate> set-slate-ungraft
-
-  slate> "Springies" open-window ;
+  C[ display ] <slate>
+    { 800 600 } >>pdim
+    C[ { 500 500 } >world-size loop on [ run ] in-thread ] >>graft
+    C[ loop off ] >>ungraft
+  [ >slate ] [ "Springies" open-window ] bi ;
 
 : springies-window ( -- ) [ [ springies-window* ] with-scope ] with-ui ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: go* ( quot -- ) '[ [ springies-window* 1000 sleep @ ] with-scope ] with-ui ;
\ No newline at end of file
+: go* ( quot -- ) '[ [ springies-window* 1000 sleep @ ] with-scope ] with-ui ;