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

ensure resize-world never happens before begin-world

Joe Groff 2009-07-13 22:35:36 -05:00
parent 64800220ec
commit f86664e8ef
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/ui/gadgets/worlds/worlds.factor
View File

@ -163,9 +163,11 @@ M: world resize-world
M: world (>>dim) M: world (>>dim)
[ call-next-method ] [ call-next-method ]
[ [
dup handle>> dup active?>> [
[ [ set-gl-context ] [ resize-world ] bi ] dup handle>>
[ drop ] if [ [ set-gl-context ] [ resize-world ] bi ]
[ drop ] if
] [ drop ] if
] bi ; ] bi ;
GENERIC: draw-world* ( world -- ) GENERIC: draw-world* ( world -- )