From a948c8a2f02bfd28f8ad767f4ebec3f13d95ff01 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 3 Oct 2015 13:20:11 -0600 Subject: [PATCH] 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. --- gui-lib/mred/private/wx/cocoa/canvas.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gui-lib/mred/private/wx/cocoa/canvas.rkt b/gui-lib/mred/private/wx/cocoa/canvas.rkt index 80951fb1..7b2858e1 100644 --- 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