From 39162cc4e13ebd13523fde246eeb04542bf8ed41 Mon Sep 17 00:00:00 2001
From: uid38172 <uid38172>
Date: Mon, 9 Sep 2002 20:05:27 +0000
Subject: 	* library/xmfbox.tcl (::tk::MotifFDialog_ActivateSEnt):
 corrected 	msgcat code with XPG specifier. [Patch #606719] (miller)

---
 library/xmfbox.tcl | 19 +++++++++----------
 1 file 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
 		}
-- 
cgit v0.12