put initial draw behind a queue-callback

svn: r16316
2009-10-13 23:00:14 +00:00 · 2009-10-13 23:00:14 +00:00 · a2ccd6147e
commit a2ccd6147e
parent 3aae13cb60
1 changed files with 4 additions and 2 deletions
--- a/collects/2htdp/private/world.ss
+++ b/collects/2htdp/private/world.ss
@ -270,8 +270,10 @@
          (stop! (if re-raise e (send world get)))))
      
      (define/public (start!)
+        (queue-callback
+         (lambda ()
           (when draw (show-canvas))
-        (when register (register-with-host)))
+           (when register (register-with-host)))))
      
      (define/public (stop! w)
        (set! live #f)