summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authoruid38172 <uid38172>2002-09-09 20:05:27 (GMT)
committeruid38172 <uid38172>2002-09-09 20:05:27 (GMT)
commit39162cc4e13ebd13523fde246eeb04542bf8ed41 (patch)
tree6d414f3abaa9381406a804def2817058f2773a00 /library
parent065e5b4a2a82bb1dc33ef53908acbbb52e5270e2 (diff)
downloadtk-39162cc4e13ebd13523fde246eeb04542bf8ed41.zip
tk-39162cc4e13ebd13523fde246eeb04542bf8ed41.tar.gz
tk-39162cc4e13ebd13523fde246eeb04542bf8ed41.tar.bz2
* library/xmfbox.tcl (::tk::MotifFDialog_ActivateSEnt): corrected
msgcat code with XPG specifier. [Patch #606719] (miller)
Diffstat (limited to 'library')
-rw-r--r--library/xmfbox.tcl19
1 files changed, 9 insertions, 10 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl
index f603ace..200364a 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.23 2002/07/22 21:25:39 mdejong Exp $
+# RCS: @(#) $Id: xmfbox.tcl,v 1.24 2002/09/09 20:05:27 uid38172 Exp $
#
# Copyright (c) 1996 Sun Microsystems, Inc.
# Copyright (c) 1998-2000 Scriptics Corporation
@@ -817,26 +817,25 @@ proc ::tk::MotifFDialog_ActivateSEnt {w} {
set item [file join $data(selectPath) $item]
} elseif {![file exists [file dirname $item]]} {
tk_messageBox -icon warning -type ok \
- -message [mc {Directory "%1$s" does not exist.} \
- [file dirname $item]]
+ -message [mc {Directory "%1$s" does not exist.} \
+ [file dirname $item]]
return
}
if {![file exists $item]} {
if {[string equal $data(type) open]} {
tk_messageBox -icon warning -type ok \
- -message [mc {File "$item" does not exist.} \
- $item]
+ -message [mc {File "%1$s" does not exist.} $item]
return
}
} else {
if {[string equal $data(type) save]} {
- set message [format %s%s \
- [mc {File "%1$s" already exists.\n\n} \
- $selectFilePath ] \
- [mc {Replace existing file?}]]
+ set message [format %s%s \
+ [mc {File "%1$s" already exists.\n\n} \
+ $selectFilePath] \
+ [mc {Replace existing file?}]]
set answer [tk_messageBox -icon warning -type yesno \
- -message $message]
+ -message $message]
if {[string equal $answer "no"]} {
return
}