summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog3
-rw-r--r--library/xmfbox.tcl4
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 \