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

.

Browse Source 
original commit: 8bc4e69283bef20c804a6ab859772f53059b0ba3
This commit is contained in:
Matthew Flatt 1999-02-24 23:23:47 +00:00
parent 18758e1376
commit aba877aa17
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4128,7 +4128,7 @@
(list s))))]) (list s))))])
(if (and (< (length strings) 10) (andmap (lambda (s) (< (string-length s) 60)) strings)) (if (and (< (length strings) 10) (andmap (lambda (s) (< (string-length s) 60)) strings))
(begin (begin
(send f set-alignment (if (= (length strings) 1) 'center 'left) 'top) (send f set-alignment (if (= (length strings) 1) 'center 'left) 'center)
(for-each (lambda (s) (make-object message% s f)) strings) (for-each (lambda (s) (make-object message% s f)) strings)
(send f stretchable-width #f) (send f stretchable-width #f)
(send f stretchable-height #f)) (send f stretchable-height #f))
@ -4142,8 +4142,9 @@
(let ([b (make-object button% title p (lambda (b e) (set! result v) (send f show #f)) (let ([b (make-object button% title p (lambda (b e) (set! result v) (send f show #f))
(if default? '(border) null))]) (if default? '(border) null))])
(when default? (send b focus))))]) (when default? (send b focus))))])
(send p set-alignment 'center 'center)
(send p stretchable-height #f) (send p stretchable-height #f)
(send p stretchable-width #f) (send p stretchable-width #t) ; to get panel's centering
(case (car style) (case (car style)
[(ok) (mk-button "Ok" 'ok #t)] [(ok) (mk-button "Ok" 'ok #t)]
[(ok-cancel) (set! result 'cancel) [(ok-cancel) (set! result 'cancel)