avoid showing GC icon for a frame that is not shown

Commit ac2d39e0e1 has the side effect of showing the window when its parent is still hidden.
2015-10-03 13:20:11 -06:00 · 2015-10-03 13:20:11 -06:00 · a948c8a2f0
commit a948c8a2f0
parent 5f63b8c95b
1 changed files with 2 additions and 1 deletions
--- a/gui-lib/mred/private/wx/cocoa/canvas.rkt
+++ b/gui-lib/mred/private/wx/cocoa/canvas.rkt
@ -465,7 +465,8 @@
       (when (pair? blits)
         (atomically
          (suspend-all-reg-blits)
-          (resume-all-reg-blits)))
+          (when (is-shown-to-root?)
+            (resume-all-reg-blits))))
       (when (dc . is-a? . dc%)
         (send dc reset-backing-retained)
         (send dc set-auto-scroll