From 8601b15e6261b2dfcfd6288f57ffa5db2b0c87c1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 17 May 1999 15:19:08 +0000
Subject: [PATCH] .

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

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 273014a9..9331e5af 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -1426,9 +1426,8 @@
 			   [(and horizontal? (not vertical-labels?)) (- (get-width) client-w)]
 			   [(and (not horizontal?) vertical-labels?) (- (get-height) client-h)]
 			   [else 0]))])
-	   (when (not horizontal?)
-	     (stretchable-in-x #f)
-	     (stretchable-in-y #t))
+	   (stretchable-in-x horizontal?)
+	   (stretchable-in-y (not horizontal?))
 	   ((if horizontal? set-min-width set-min-height) 
 	    (max ((if horizontal? get-width get-height))
 		 (min const-max-gauge-length range)))))))))
@@ -4986,4 +4985,3 @@
 	(error 'get-window-text-extent "couldn't allocate sizing bitmap"))
       (let-values ([(w h d a) (send dc get-text-extent string font)])
 	(values (inexact->exact w) (inexact->exact h)))])))
-