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

fix multi-line message box (gone bad in rev 3304)

Browse Source 
svn: r7374
This commit is contained in:
Eli Barzilay 2007-09-17 23:17:47 +00:00
parent cf182ae8a9
commit 45c55b6fca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/messagebox.ss
View File

@ -112,7 +112,7 @@
[else (let ([p (new horizontal-pane% [parent f] [alignment '(center top)])])
(let ([icon-msg (make-object message% icon-id p)]
[msg-pnl (new vertical-pane% [parent p])])
(values (if single?
(values (if (= 1 (length strings))
(new horizontal-pane%
[parent msg-pnl]
[alignment '(center top)]