Cocoa: avoid showing GC blits when canvas is hidden

2015-08-19 12:05:24 -06:00 · 2015-08-19 12:05:24 -06:00 · 999c603ba0
commit 999c603ba0
parent 4f3216f55a
1 changed files with 3 additions and 2 deletions
--- a/gui-lib/mred/private/wx/cocoa/canvas.rkt
+++ b/gui-lib/mred/private/wx/cocoa/canvas.rkt
@ -490,8 +490,9 @@

     (define/override (fixup-locations-children)
       ;; in atomic mode
-       (suspend-all-reg-blits)
-       (resume-all-reg-blits))
+       (when (is-shown-to-root?)
+         (suspend-all-reg-blits)
+         (resume-all-reg-blits)))

     (define/private (do-set-size x y w h)
       (when (pair? blits)