diff options
| author | uid38172 <uid38172> | 2002-09-09 20:05:27 (GMT) |
|---|---|---|
| committer | uid38172 <uid38172> | 2002-09-09 20:05:27 (GMT) |
| commit | 39162cc4e13ebd13523fde246eeb04542bf8ed41 (patch) | |
| tree | 6d414f3abaa9381406a804def2817058f2773a00 /library/xmfbox.tcl | |
| parent | 065e5b4a2a82bb1dc33ef53908acbbb52e5270e2 (diff) | |
| download | tk-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/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 19 |
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 } |