From b9da05ef9deeec84f0bbc234fb0e014e71e6299b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 26 Oct 2000 03:10:34 +0000
Subject: [PATCH] .

original commit: fbd9b904b5fde80b223e82f3309920fa88c4d159
---
 src/mred/wrap/mred.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 0564b964..757602ac 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -1325,8 +1325,10 @@
 		 (lambda ()
 		   (let ([mred (get-mred)])
 		     (if mred
-			 (if (eq? 'windows (system-type))
-			     ;; Windows can circumvent the event queue, so delay
+			 (if (and (eq? 'windows (system-type))
+				  (not (eq? (wx:current-eventspace)
+					    (ivar (get-top-level) eventspace))))
+			     ;; Windows circumvented the event queue; delay
 			     (queue-window-callback
 			      this
 			      (lambda () (send mred on-paint)))