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

.

Browse Source 
original commit: 6fc247cd23b9fbae4a4fcd148abc38f770486b17
This commit is contained in:
Matthew Flatt 2000-05-10 15:24:43 +00:00
parent 68b8d298ab
commit 213fa438e9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -654,8 +654,8 @@
; difference between panel's full size & ; difference between panel's full size &
; frame's full size ; frame's full size
[delta-w (- (get-width) f-client-w)] [delta-w (max 0 (- (get-width) f-client-w))]
[delta-h (- (get-height) f-client-h)] [delta-h (max 0 (- (get-height) f-client-h))]
; minimum frame size: ; minimum frame size:
[min-w (+ delta-w (child-info-x-min panel-info))] [min-w (+ delta-w (child-info-x-min panel-info))]
@ -2515,9 +2515,9 @@
get-min-size set-min-width set-min-height) get-min-size set-min-width set-min-height)
(rename [super-place-children place-children]) (rename [super-place-children place-children])
(public (public
[command (lambda (e) [command (lambda (e) ; No entry/exit needed
(check-instance '(method text-field% command) wx:control-event% 'control-event% #f e) (check-instance '(method text-field% command) wx:control-event% 'control-event% #f e)
(as-exit (lambda () (func this e))) (func this e)
(void))] (void))]
[get-editor (lambda () e)] [get-editor (lambda () e)]
@ -4929,7 +4929,7 @@
(send green set-value (send color green)) (send green set-value (send color green))
(send blue set-value (send color blue))) (send blue set-value (send color blue)))
(make-object button% "Cancel" bp (done #f)) (make-object button% "Cancel" bp (done #f))
(make-object button% "Ok" bp (done #t) '(border)) (send (make-object button% "Ok" bp (done #t) '(border)) focus)
(send bp set-alignment 'right 'center) (send bp set-alignment 'right 'center)
(send p set-alignment 'right 'center) (send p set-alignment 'right 'center)
(send p stretchable-height #f) (send p stretchable-height #f)