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

fix yet another refresh problem

Browse Source 
original commit: 6d8bb2cab4d9d0a4ec24cbf885c41e13c9771570
This commit is contained in:
Matthew Flatt 2010-09-09 08:16:00 -06:00
parent f37b3304f2
commit d93d8e5dfc
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/cocoa/canvas.rkt
View File

@ -223,6 +223,7 @@
(when pq (set-box! pq #f))) (when pq (set-box! pq #f)))
(set! paint-queued #f) (set! paint-queued #f)
(when (or (not b) (is-shown-to-root?)) (when (or (not b) (is-shown-to-root?))
(send dc suspend-flush)
(send dc ensure-ready) (send dc ensure-ready)
(send dc erase) ; start with a clean slate (send dc erase) ; start with a clean slate
(let ([bg (get-canvas-background)]) (let ([bg (get-canvas-background)])
@ -231,7 +232,6 @@
(send dc set-background bg) (send dc set-background bg)
(send dc clear) (send dc clear)
(send dc set-background old-bg)))) (send dc set-background old-bg))))
(send dc suspend-flush)
(on-paint) (on-paint)
(send dc resume-flush) (send dc resume-flush)
(queue-backing-flush))) (queue-backing-flush)))

2
collects/mred/private/wx/gtk/canvas.rkt
View File

@ -349,6 +349,7 @@
(lambda () (lambda ()
(set! paint-queued? #f) (set! paint-queued? #f)
(set! now-drawing? #t) (set! now-drawing? #t)
(send dc suspend-flush)
(send dc ensure-ready) (send dc ensure-ready)
(send dc erase) ; clean slate (send dc erase) ; clean slate
(let ([bg (get-canvas-background)]) (let ([bg (get-canvas-background)])
@ -357,7 +358,6 @@
(send dc set-background bg) (send dc set-background bg)
(send dc clear) (send dc clear)
(send dc set-background old-bg)))) (send dc set-background old-bg))))
(send dc suspend-flush)
(on-paint) (on-paint)
(send dc resume-flush) (send dc resume-flush)
(set! now-drawing? #f) (set! now-drawing? #f)