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

Add go* to springies.ui

release
Eduardo Cavazos 2007-10-10 00:09:58 -05:00
parent 3556bb99ae
commit 0c0ad6c3ee
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
USING: kernel namespaces threads sequences math math.vectors combinators.lib
opengl.gl opengl colors ui ui.gadgets ui.gadgets.slate
rewrite-closures vars springies ;
bake rewrite-closures vars springies ;
IN: springies.ui
@ -58,4 +58,9 @@ DEFER: maybe-loop
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 ] bake call ;