* library/msgs/de.msg: German message catalog.

* library/msgs/en.msg: English message catalog.

* library/msgs/es.msg: Spanish message catalog.

* library/msgs/fr.msg: French message catalog.

* unix/Makefile.in:
* unix/configure.in:
* library/tk.tcl:
* library/clrpick.tcl:
* library/choosedir.tcl:
* library/console.tcl:
* library/msgbox.tcl:
* library/tkfbox.tcl:
* library/xmfbox.tcl:
* library/bgerror.tcl: Applied patches from Laurent Duperval to
provide localization of Tk dialogs. [RFE: 2671].


FossilOrigin-Name: fba5538c67f2c40b36cf85e267a90136a5a80bbd

1 files changed, 29 insertions, 19 deletions

diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl
index 3ed5000..5a0dfb0 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.12 2000/06/23 00:22:28 ericm Exp $
+# RCS: @(#) $Id: xmfbox.tcl,v 1.13 2000/06/30 06:38:39 ericm Exp $
 #
 # Copyright (c) 1996 Sun Microsystems, Inc.
 # Copyright (c) 1998-2000 Scriptics Corporation
@@ -235,12 +235,12 @@ proc tkMotifFDialog_Config {dataName type argList} {
     if {[string equal $data(-title) ""]} {
 	if {[string equal $type "open"]} {
 	    if {$data(-multiple) != 0} {
-		set data(-title) "Open Multiple Files"
+		set data(-title) "[::msgcat::mc {Open Multiple Files}]"
 	    } else {
-		set data(-title) "Open"
+	    set data(-title) [::msgcat::mc "Open"]
 	    }
 	} else {
-	    set data(-title) "Save As"
+	    set data(-title) [::msgcat::mc "Save As"]
 	}
     }
 
@@ -321,7 +321,7 @@ proc tkMotifFDialog_BuildUI {w} {
 
     # The Filter box
     #
-    label $f1.lab -text "Filter:" -under 3 -anchor w
+    label $f1.lab -text [::msgcat::mc "Filter:"] -under 3 -anchor w
     entry $f1.ent
     pack $f1.lab -side top -fill x -padx 6 -pady 4
     pack $f1.ent -side top -fill x -padx 4 -pady 0
@@ -329,12 +329,14 @@ proc tkMotifFDialog_BuildUI {w} {
 
     # The file and directory lists
     #
-    set data(dList) [tkMotifFDialog_MakeSList $w $f2a Directory: 0 DList]
-    set data(fList) [tkMotifFDialog_MakeSList $w $f2b Files:     2 FList]
+    set data(dList) [tkMotifFDialog_MakeSList $w $f2a \
+	    [::msgcat::mc "Directory:"] 0 DList]
+    set data(fList) [tkMotifFDialog_MakeSList $w $f2b \
+	    [::msgcat::mc "Files:"]     2 FList]
 
     # The Selection box
     #
-    label $f3.lab -text "Selection:" -under 0 -anchor w
+    label $f3.lab -text [::msgcat::mc "Selection:"] -under 0 -anchor w
     entry $f3.ent
     pack $f3.lab -side top -fill x -padx 6 -pady 0
     pack $f3.ent -side top -fill x -padx 4 -pady 4
@@ -342,12 +344,17 @@ proc tkMotifFDialog_BuildUI {w} {
 
     # The buttons
     #
-    set data(okBtn) [button $bot.ok     -text OK     -width 6 -under 0 \
-	-command [list tkMotifFDialog_OkCmd $w]]
-    set data(filterBtn) [button $bot.filter -text Filter -width 6 -under 0 \
-	-command [list tkMotifFDialog_FilterCmd $w]]
-    set data(cancelBtn) [button $bot.cancel -text Cancel -width 6 -under 0 \
-	-command [list tkMotifFDialog_CancelCmd $w]]
+	set maxWidth [::msgcat::mcmax OK Filter Cancel]
+	set maxWidth [expr $maxWidth<6?6:$maxWidth]
+    set data(okBtn) [button $bot.ok -text [::msgcat::mc "OK"] \
+	    -width $maxWidth -under 0 \
+	    -command [list tkMotifFDialog_OkCmd $w]]
+    set data(filterBtn) [button $bot.filter -text [::msgcat::mc "Filter"] \
+	    -width $maxWidth -under 0 \
+	    -command [list tkMotifFDialog_FilterCmd $w]]
+    set data(cancelBtn) [button $bot.cancel -text [::msgcat::mc "Cancel"] \
+	    -width $maxWidth -under 0 \
+	    -command [list tkMotifFDialog_CancelCmd $w]]
 
     pack $bot.ok $bot.filter $bot.cancel -padx 10 -pady 10 -expand yes \
 	-side left
@@ -799,21 +806,24 @@ proc tkMotifFDialog_ActivateSEnt {w} {
 	    set item [file join $data(selectPath) $item]
 	} elseif {![file exists [file dirname $item]]} {
 	    tk_messageBox -icon warning -type ok \
-		-message "Directory \"[file dirname $item]\" does not exist."
+	    -message [::msgcat::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 "File \"$item\" does not exist."
+		    -message [::msgcat::mc {File "$item" does not exist.} \
+			$item]
 		return
 	    }
 	} else {
 	    if {[string equal $data(type) save]} {
-		set message [format %s%s \
-				 "File \"$item\" already exists.\n\n" \
-				 "Replace existing file?"]
+	    set message [format %s%s \
+		[::msgcat::mc {File "%1$s" already exists.\n\n} \
+		    $selectFilePath ]
+		[::msgcat::mc {Replace existing file?}]]
 		set answer [tk_messageBox -icon warning -type yesno \
 				-message $message]
 		if {[string equal $answer "no"]} {