From b7bfca9be1ae4b18cb100c779df2c03efeecd7c7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 4 Jun 1999 20:56:54 +0000
Subject: [PATCH] .

original commit: 133027748c8f9b1539a8911304dbb422f2657b22
---
 src/mred/wrap/mred.ss | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 17b7360a..9510f103 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -637,7 +637,7 @@
 		      (set! already-trying? #t)
 		      (set-size -1 -1 correct-w correct-h)
 		      (set! already-trying? #f)
-		      (when was-bad? (resized)))))))))])
+		      (resized))))))))])
       
     (override
       ; show: add capability to set perform-updates
@@ -687,8 +687,9 @@
       ;            independently.
       [on-size
        (lambda (bad-width bad-height)
-	 (parameterize ([wx:current-eventspace eventspace])
-	   (wx:queue-callback resized #t)))])
+	 (unless already-trying?
+	   (parameterize ([wx:current-eventspace eventspace])
+	     (wx:queue-callback resized #t))))])
 
     (public
       [handle-traverse-key