From 45c55b6fcac0ad0c0e6f25d4f187b9b9fc88d46b Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 17 Sep 2007 23:17:47 +0000 Subject: [PATCH] fix multi-line message box (gone bad in rev 3304) svn: r7374 --- collects/mred/private/messagebox.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/messagebox.ss b/collects/mred/private/messagebox.ss index c3e338d57a..4b08a7cab6 100644 --- 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)]