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

final world display, Closes PR11471

Browse Source
This commit is contained in:
Matthias Felleisen 2010-11-29 10:58:48 -05:00
parent cf3b9680ba
commit 6df50ffe83
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/2htdp/private/world.rkt
View File

@ -263,14 +263,17 @@
(begin
(set! nw (stop-the-world-world nw))
(send world set tag nw)
(when last-picture (last-draw))
(when draw (pdraw))
(cond
[last-picture (last-draw)]
[draw (pdraw)])
(callback-stop! 'name)
(enable-images-button))
(let ([changed-world? (send world set tag nw)])
(let ([changed-world? (send world set tag nw)]
[stop? (pstop)])
;; this is the old "Robby optimization" see checked-cell:
; unless changed-world?
(when draw
(cond
[(and draw (not stop?))
(cond
[(not drawing)
(set! drawing #t)
@ -285,11 +288,13 @@
;; high!! the scheduled callback didn't fire
(queue-callback (lambda () (d)) #t)]
[else
(set! draw# (- draw# 1))]))
(when (pstop)
(when last-picture (last-draw))
(callback-stop! 'name)
(enable-images-button))
(set! draw# (- draw# 1))])]
[stop?
(cond
[last-picture (last-draw)]
[draw (pdraw)])
(callback-stop! 'name)
(enable-images-button)])
changed-world?))))))))
;; tick, tock : deal with a tick event for this world