diff options
| author | hobbs <hobbs> | 2003-02-18 21:19:32 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-02-18 21:19:32 (GMT) |
| commit | b14cea91323cfc7bddc1ded941174285b070769d (patch) | |
| tree | 0d363077031f7daf91cfaa8cc03f9d4f38f91ee2 /library/xmfbox.tcl | |
| parent | 7a0f0c6987eefd74a1f1b93c30dfff44a89cb428 (diff) | |
| download | tk-b14cea91323cfc7bddc1ded941174285b070769d.zip tk-b14cea91323cfc7bddc1ded941174285b070769d.tar.gz tk-b14cea91323cfc7bddc1ded941174285b070769d.tar.bz2 | |
* library/xmfbox.tcl (::tk::MotifFDialog_ActivateSEnt): correct
sub on embedded newlines. [Patch #688572] (bonfield)
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
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 \ |