From b4b0776dc220f1ce424e81f4a17cd99d96da4f9e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 11 Oct 2003 13:42:55 +0000
Subject: [PATCH] .

original commit: 65b87dc5d048e0b57a22c132fb044c9fabd3dd2d
---
 collects/mred/mred.ss           | 15 ++++++++++++---
 collects/mred/private/kernel.ss |  2 ++
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 2cec2dd2..bd7e1489 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -541,7 +541,7 @@
 (define (make-top-container% base% dlg?)
   (class100 (wx-make-container% (wx-make-window% base% #t)) (parent . args)
     (inherit get-x get-y get-width get-height set-size
-	     get-client-size is-shown? on-close)
+	     get-client-size is-shown? on-close enforce-size)
     (rename [super-show show] [super-move move] [super-center center]
 	    [super-on-size on-size]
 	    [super-enable enable]
@@ -714,7 +714,9 @@
 			[(< frame-h min-h) min-h]
 			[(and (> frame-h min-h) (not (child-info-y-stretch panel-info))) min-h]
 			[else frame-h])])
-		 (values new-w new-h)))))]
+		 (values new-w new-h 
+			 min-w min-h
+			 (child-info-x-stretch panel-info) (child-info-y-stretch panel-info))))))]
 
       [set-panel-size
        (lambda ()
@@ -741,11 +743,14 @@
 	  (unless already-trying?
 	    (let ([new-width (get-width)]
 		  [new-height (get-height)])
-	      (let-values ([(correct-w correct-h) (correct-size new-width new-height)])
+	      (let-values ([(correct-w correct-h min-w min-h sx? sy?) (correct-size new-width new-height)])
 		(cond
 		 [(and (= new-width correct-w) (= new-height correct-h))
 		  ;; Good size; do panel
 		  (set! was-bad? #f)
+		  (enforce-size min-w min-h
+				(if sx? -1 min-w) (if sy? -1 min-h)
+				1 1)
 		  (set-panel-size)]
 		 [(and (= last-width correct-w) (= last-height correct-h)
 		       was-bad?)
@@ -757,7 +762,11 @@
 		  (set! last-width correct-w)
 		  (set! last-height correct-h)
 		  (set! already-trying? #t)
+		  (enforce-size -1 -1 -1 -1 1 1)
 		  (set-size -1 -1 correct-w correct-h)
+		  (enforce-size min-w min-h
+				(if sx? -1 min-w) (if sy? -1 min-h)
+				1 1)
 		  (set! already-trying? #f)
 		  (resized)]))))))])
     
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 840dc9a6..75d448b3 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -490,6 +490,7 @@
     on-toolbar-click
     on-menu-click
     on-menu-command
+    enforce-size
     on-close
     on-activate
     designate-root-frame
@@ -1105,6 +1106,7 @@
     on-size
     on-set-focus
     on-kill-focus
+    enforce-size
     on-close
     on-activate)
   (define-class radio-box% item% #f