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

.

Browse Source 
original commit: 390078ba5757555aed9dee0d3eeb98a82d3ff516
This commit is contained in:
Matthew Flatt 2002-09-04 00:31:21 +00:00
parent 94ec868adc
commit beccbadd39
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred-sig.ss
View File

@ -111,7 +111,7 @@
menu-item<%>
message%
message-box
message-box/buttons
message-box/custom
mouse-event%
;; mred@
mult-color<%>

6
collects/mred/mred.ss
View File

@ -5090,7 +5090,9 @@
(send msg-pnl min-height 64)
(send btn-pnl stretchable-height #f)
(values msg-pnl btn-pnl 96 'right 'left 'top)))]
[else (values f f 0 'center 'center 'center)])])
[else (let ([p (make-object horizontal-pane% f)])
(make-object message% 'app p)
(values (make-object vertical-pane% p) f 0 'center 'center 'center))])])
(if single?
(begin
(send msg-pnl set-alignment (if (= (length strings) 1) msg-h-align 'left) msg-v-align)
@ -6129,7 +6131,7 @@
(define (check-label-string/bitmap/iconsym who label)
(unless (or (label-string? label) (is-a? label wx:bitmap%)
(memq label '(app warning error)))
(memq label '(app caution stop)))
(raise-type-error (who->name who) "string (up to 200 characters), bitmap% object, or icon symbol" label)))
(define (check-style who reqd other-allowed style)