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

experiment with explicit flush in 2htdp/world

Browse Source
This commit is contained in:
Matthew Flatt 2010-11-12 20:18:03 -07:00
parent 42a4465fb0
commit c1ce863a70
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -211,9 +211,15 @@
(let ([s (send visible find-first-snip)] (let ([s (send visible find-first-snip)]
[c (send visible get-canvas)]) [c (send visible get-canvas)])
(when s (send visible delete s)) (when s (send visible delete s))
(send visible insert (send pict copy) 0 0)) (send visible insert (send pict copy) 0 0)
(send visible lock #t) (send visible lock #t)
(send visible end-edit-sequence)) (send visible end-edit-sequence)
;; The following flush trades streaming performance (where updates
;; could be skipped if they're replaced fast enough) for
;; responsiveness (where too many updates might not get
;; through if the canvas is mostly in suspended-refresh
;; mode for scene changes):
(send c flush)))
;; ---------------------------------------------------------------------- ;; ----------------------------------------------------------------------
;; callbacks ;; callbacks