ensure resize-world never happens before begin-world

2009-07-13 22:35:36 -05:00 · 2009-07-13 22:35:36 -05:00 · f86664e8ef
parent 64800220ec
commit f86664e8ef
1 changed files with 5 additions and 3 deletions
--- a/basis/ui/gadgets/worlds/worlds.factor
+++ b/basis/ui/gadgets/worlds/worlds.factor
@ -163,9 +163,11 @@ M: world resize-world
 M: world (>>dim)
    [ call-next-method ]
    [
-        dup handle>>
-        [ [ set-gl-context ] [ resize-world ] bi ]
-        [ drop ] if
+        dup active?>> [
+            dup handle>>
+            [ [ set-gl-context ] [ resize-world ] bi ]
+            [ drop ] if
+        ] [ drop ] if
    ] bi ;

 GENERIC: draw-world* ( world -- )