suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

put initial draw behind a queue-callback

Browse Source 
svn: r16316
This commit is contained in:
John Clements 2009-10-13 23:00:14 +00:00
parent 3aae13cb60
commit a2ccd6147e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/2htdp/private/world.ss
View File

@ -270,8 +270,10 @@
(stop! (if re-raise e (send world get))))) (stop! (if re-raise e (send world get)))))
(define/public (start!) (define/public (start!)
(when draw (show-canvas)) (queue-callback
(when register (register-with-host))) (lambda ()
(when draw (show-canvas))
(when register (register-with-host)))))
(define/public (stop! w) (define/public (stop! w)
(set! live #f) (set! live #f)