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

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

@ -52,16 +52,14 @@ DEFER: maybe-loop
: springies-window* ( -- ) : springies-window* ( -- )
C[ display ] <slate> >slate C[ display ] <slate>
{ 800 600 } slate> set-slate-pdim { 800 600 } >>pdim
C[ { 500 500 } >world-size loop on [ run ] in-thread ] C[ { 500 500 } >world-size loop on [ run ] in-thread ] >>graft
slate> set-slate-graft C[ loop off ] >>ungraft
C[ loop off ] slate> set-slate-ungraft [ >slate ] [ "Springies" open-window ] bi ;
slate> "Springies" open-window ;
: springies-window ( -- ) [ [ springies-window* ] with-scope ] with-ui ; : springies-window ( -- ) [ [ springies-window* ] with-scope ] with-ui ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: go* ( quot -- ) '[ [ springies-window* 1000 sleep @ ] with-scope ] with-ui ; : go* ( quot -- ) '[ [ springies-window* 1000 sleep @ ] with-scope ] with-ui ;