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

svn: r7374 original commit: 45c55b6fcac0ad0c0e6f25d4f187b9b9fc88d46b
2007-09-17 23:17:47 +00:00 · 2007-09-17 23:17:47 +00:00 · 8c9a88983e
commit 8c9a88983e
parent f3759ab9d2
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)]