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

View File

@ -14,8 +14,12 @@ USING: kernel namespaces threads math math.vectors quotations sequences
ui.gadgets.theme
vars rewrite-closures
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
@ -147,7 +151,7 @@ make-pile 1 over set-pack-fill "L-system control" open-window ;
: lsys-viewer ( -- )
f <slate> >slate
[ ] <slate> >slate
{ 400 400 } clone slate> set-slate-dim
{