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

improved the check that avoids redrawing (added it to key events and changed it to use equal instead of eq)

Browse Source 
svn: r12941
This commit is contained in:
Robby Findler 2008-12-26 18:34:40 +00:00
parent d00db36f66
commit 1b093e7963
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/htdp/world.ss
View File

@ -903,9 +903,11 @@ Matthew
(queue-callback
(lambda ()
(with-handlers ([exn:break? break-handler][exn? exn-handler])
(set! the-world (f the-world e))
(add-event KEY e)
(redraw-callback))))))
(let ([new-world (f the-world e)])
(unless (equal? new-world the-world)
(set! the-world new-world)
(add-event KEY e)
(redraw-callback))))))))
;; f : [World Nat Nat MouseEventType -> World]
;; esp : EventSpace
@ -920,7 +922,7 @@ Matthew
(when (and (<= 0 x WIDTH) (<= 0 y HEIGHT))
(with-handlers ([exn:break? break-handler][exn? exn-handler])
(let ([new-world (f the-world x y m)])
(unless (eq? new-world the-world)
(unless (equal? new-world the-world)
(set! the-world new-world)
(add-event MOUSE x y m)
(redraw-callback)))))))))