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

lsys.ui: Fix pit - 'f' cannot be called anymore

release
Eduardo Cavazos 2007-10-11 14:12:58 -05:00
parent 1e80002445
commit b7be5d1750
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/lsys/ui/ui.factor
View File

@ -14,8 +14,12 @@ USING: kernel namespaces threads math math.vectors quotations sequences
ui.gadgets.theme ui.gadgets.theme
vars rewrite-closures vars rewrite-closures
self pos ori turtle opengl.camera self pos ori turtle opengl.camera
lsys.tortoise lsys.tortoise.graphics lsys.strings lsys.tortoise lsys.tortoise.graphics
; lsys.strings.rewrite lsys.strings.interpret ;
! lsys.strings
! lsys.strings.rewrite
! lsys.strings.interpret
IN: lsys.ui IN: lsys.ui
@ -147,7 +151,7 @@ make-pile 1 over set-pack-fill "L-system control" open-window ;
: lsys-viewer ( -- ) : lsys-viewer ( -- )
f <slate> >slate [ ] <slate> >slate
{ 400 400 } clone slate> set-slate-dim { 400 400 } clone slate> set-slate-dim
{ {