suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 0205547b62fa9336a975a0df03aa3734813e1ed7
This commit is contained in:
Matthew Flatt 1999-06-08 14:22:07 +00:00
parent 51ff33c414
commit d864a300a1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mred/wrap/mred.ss
View File

@ -2390,7 +2390,8 @@
(define wx-text-field% (define wx-text-field%
(class wx-horizontal-panel% (mred proxy parent func label value style) (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]) (rename [super-place-children place-children])
(sequence (sequence
(super-init #f proxy parent null) (super-init #f proxy parent null)
@ -2500,6 +2501,9 @@
(send c get-size tw (box 0)) (send c get-size tw (box 0))
(let ([new-min-width (+ (unbox ew) (- (unbox tw) (unbox cw)))]) (let ([new-min-width (+ (unbox ew) (- (unbox tw) (unbox cw)))])
(send c set-min-width (inexact->exact new-min-width)))))) (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)))) (send e callback-ready))))
;;;;;;;;;;;;;;;;;;;;;;;;; mred Class Construction ;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;; mred Class Construction ;;;;;;;;;;;;;;;;;;;;;;;;;