From bb96973c4a4053a47a395c1f4fb61e722ce4f20b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 24 Dec 2010 18:22:59 -0600 Subject: [PATCH] cocoa: don't disable flushes on a window that isn't shown because that doesn't seem to work Closes PR 11565 --- collects/mred/private/wx/cocoa/window.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/cocoa/window.rkt b/collects/mred/private/wx/cocoa/window.rkt index dbe29c728a..d385d961fd 100644 --- a/collects/mred/private/wx/cocoa/window.rkt +++ b/collects/mred/private/wx/cocoa/window.rkt @@ -810,8 +810,9 @@ (do-request-flush-delay cocoa-win (lambda (cocoa-win) - (tellv cocoa-win disableFlushWindow) - #t) + (and (tell #:type _bool cocoa-win isVisible) + (tellv cocoa-win disableFlushWindow) + #t)) (lambda (cocoa-win) (tellv cocoa-win enableFlushWindow))))