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

svn: r7374
2007-09-17 23:17:47 +00:00 · 2007-09-17 23:17:47 +00:00 · 45c55b6fca
commit 45c55b6fca
parent cf182ae8a9
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/messagebox.ss
+++ b/collects/mred/private/messagebox.ss
@ -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)]