From b14cea91323cfc7bddc1ded941174285b070769d Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 18 Feb 2003 21:19:32 +0000
Subject: 	* library/xmfbox.tcl (::tk::MotifFDialog_ActivateSEnt):
 correct 	sub on embedded newlines. [Patch #688572] (bonfield)

---
 ChangeLog          | 3 +++
 library/xmfbox.tcl | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6d446b6..42deb6e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2003-02-18  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* library/xmfbox.tcl (::tk::MotifFDialog_ActivateSEnt): correct
+	sub on embedded newlines. [Patch #688572] (bonfield)
+
 	* doc/colors.n: corrected B values [Bug #682714].
 
 	* win/tkWinInit.c (TkpDisplayWarning): truncate MessageBox string
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl
index 200364a..67e2804 100644
--- a/library/xmfbox.tcl
+++ b/library/xmfbox.tcl
@@ -4,7 +4,7 @@
 #	Unix platform. This implementation is used only if the
 #	"::tk_strictMotif" flag is set.
 #
-# RCS: @(#) $Id: xmfbox.tcl,v 1.24 2002/09/09 20:05:27 uid38172 Exp $
+# RCS: @(#) $Id: xmfbox.tcl,v 1.25 2003/02/18 21:19:35 hobbs Exp $
 #
 # Copyright (c) 1996 Sun Microsystems, Inc.
 # Copyright (c) 1998-2000 Scriptics Corporation
@@ -831,7 +831,7 @@ proc ::tk::MotifFDialog_ActivateSEnt {w} {
 	} else {
 	    if {[string equal $data(type) save]} {
 		set message [format %s%s \
-			[mc {File "%1$s" already exists.\n\n} \
+			[mc "File \"%1\$s\" already exists.\n\n" \
 			$selectFilePath] \
 			[mc {Replace existing file?}]]
 		set answer [tk_messageBox -icon warning -type yesno \
-- 
cgit v0.12