From a35b0e4831261ad41ab056c392ad560a49a1a3c5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 6 Oct 2015 21:23:57 -0600 Subject: [PATCH] another Mac OS X 10.11 refresh repair Avoid frames that start out unpainted and end up with a too-dark titlebar. --- gui-lib/mred/private/wx/cocoa/frame.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/gui-lib/mred/private/wx/cocoa/frame.rkt b/gui-lib/mred/private/wx/cocoa/frame.rkt index a26dafdf..41bb9f3f 100644 --- a/gui-lib/mred/private/wx/cocoa/frame.rkt +++ b/gui-lib/mred/private/wx/cocoa/frame.rkt @@ -399,6 +399,11 @@ (error (string->symbol (format "show method in ~a" (if is-a-dialog? 'dialog% 'frame%))) "the eventspace hash been shutdown")) + (when (version-10.11-or-later?) + ;; Ensure that the basic window background is drawn before + ;; we potentially suspend redrawing. Otherwise, the window + ;; can start black and end up with a too-dark titlebar. + (tellv cocoa display)) (when saved-child (if (eq? (current-thread) (eventspace-handler-thread es)) (do-paint-children)