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

new accessors

db4
Doug Coleman 2008-09-02 16:13:43 -05:00
parent f85e70a6ce
commit cb45241fd7
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/springies/ui/ui.factor
View File

@ -52,13 +52,11 @@ 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 ;