From d864a300a19fd51e043553491e78508fded6d8ed Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 8 Jun 1999 14:22:07 +0000 Subject: [PATCH] . original commit: 0205547b62fa9336a975a0df03aa3734813e1ed7 --- src/mred/wrap/mred.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index a99c4899..8de8f0ad 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -2390,7 +2390,8 @@ (define wx-text-field% (class wx-horizontal-panel% (mred proxy parent func label value style) - (inherit alignment stretchable-in-y get-control-font area-parent) + (inherit alignment stretchable-in-y get-control-font area-parent + get-min-size set-min-width set-min-height) (rename [super-place-children place-children]) (sequence (super-init #f proxy parent null) @@ -2500,6 +2501,9 @@ (send c get-size tw (box 0)) (let ([new-min-width (+ (unbox ew) (- (unbox tw) (unbox cw)))]) (send c set-min-width (inexact->exact new-min-width)))))) + (let ([min-size (get-min-size)]) + (set-min-width (car min-size)) + (set-min-height (cadr min-size))) (send e callback-ready)))) ;;;;;;;;;;;;;;;;;;;;;;;;; mred Class Construction ;;;;;;;;;;;;;;;;;;;;;;;;;