From 838900d054634385dd5c112d89874df9c5f80aaf Mon Sep 17 00:00:00 2001
From: ericm <ericm@noemail.net>
Date: Fri, 30 Jun 2000 06:38:36 +0000
Subject: * 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
---
 ChangeLog             | 22 +++++++++++++
 library/bgerror.tcl   | 26 ++++++++--------
 library/choosedir.tcl |  4 +--
 library/clrpick.tcl   | 42 +++++++++++++++----------
 library/console.tcl   | 42 +++++++++++++------------
 library/msgbox.tcl    | 75 +++++++++++++++++++++++++++++----------------
 library/msgs/de.msg   | 67 ++++++++++++++++++++++++++++++++++++++++
 library/msgs/en.msg   | 67 ++++++++++++++++++++++++++++++++++++++++
 library/msgs/es.msg   | 67 ++++++++++++++++++++++++++++++++++++++++
 library/msgs/fr.msg   | 67 ++++++++++++++++++++++++++++++++++++++++
 library/tk.tcl        |  4 ++-
 library/tkfbox.tcl    | 85 ++++++++++++++++++++++++++++++---------------------
 library/xmfbox.tcl    | 48 +++++++++++++++++------------
 unix/Makefile.in      | 28 +++++++++++++++--
 unix/configure.in     |  4 ++-
 15 files changed, 515 insertions(+), 133 deletions(-)
 create mode 100644 library/msgs/de.msg
 create mode 100644 library/msgs/en.msg
 create mode 100644 library/msgs/es.msg
 create mode 100644 library/msgs/fr.msg

diff --git a/ChangeLog b/ChangeLog
index 2bea01a..8bfbff3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,25 @@
+2000-06-29  Eric Melski  <ericm@scriptics.com>
+
+	* 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].
+
 2000-06-27  Eric Melski  <ericm@scriptics.com>
 
 	* generic/tkMenu.c (DeleteMenuCloneEntries): Applied fix from
diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index 41c1ef3..cbdc309 100644
--- a/library/bgerror.tcl
+++ b/library/bgerror.tcl
@@ -9,10 +9,11 @@
 # Copyright (c) 1998-2000 by Ajuba Solutions.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: bgerror.tcl,v 1.11 2000/06/19 18:28:56 ericm Exp $
-# $Id: bgerror.tcl,v 1.11 2000/06/19 18:28:56 ericm Exp $
+# RCS: @(#) $Id: bgerror.tcl,v 1.12 2000/06/30 06:38:38 ericm Exp $
+# $Id: bgerror.tcl,v 1.12 2000/06/30 06:38:38 ericm Exp $
 
-option add *ErrorDialog.function.text "Save To Log" widgetDefault
+option add *ErrorDialog.function.text [::msgcat::mc "Save To Log"] \
+	widgetDefault
 option add *ErrorDialog.function.command "::tk::dialog::error::saveToLog"
 
 namespace eval ::tk {}
@@ -51,11 +52,11 @@ proc ::tk::dialog::error::saveToLog {text} {
 	set allFiles "*"
     }
     set types [list	\
-	    [list "Log Files"	.log]		\
-	    [list "Text Files"	.txt]		\
-	    [list "All Files"	$allFiles]	\
+	    [list [::msgcat::mc "Log Files"]	.log]		\
+	    [list [::msgcat::mc "Text Files"]	.txt]		\
+	    [list [::msgcat::mc "All Files"]	$allFiles]	\
 	    ]
-    set filename [tk_getSaveFile -title "Select Log File" \
+    set filename [tk_getSaveFile -title [::msgcat::mc "Select Log File"] \
 	    -filetypes $types -defaultextension .log -parent .bgerrorDialog]
     if {![string length $filename]} {
 	return
@@ -92,12 +93,12 @@ proc bgerror err {
     # Ok the application's tkerror either failed or was not found
     # we use the default dialog then :
     if {$tcl_platform(platform) == "macintosh"} {
-	set ok		"Ok"
+	set ok		[::msgcat::mc "Ok"]
 	set messageFont	system
 	set textRelief	"flat"
 	set textHilight	0
     } else {
-	set ok		"OK"
+	set ok		[::msgcat::mc "OK"]
 	set messageFont	{Times -18}
 	set textRelief	"sunken"
 	set textHilight	1
@@ -124,9 +125,10 @@ proc bgerror err {
     }
 
     set w .bgerrorDialog
-    set title "Application Error"
-    set text "Error:  $displayedErr"
-    set buttons [list ok $ok dismiss "Skip Messages" function "Details >>"]
+    set title [::msgcat::mc "Application Error"]
+    set text [::msgcat::mc "Error: %1\$s" $err]
+    set buttons [list ok $ok dismiss [::msgcat::mc "Skip Messages"] \
+	    function [::msgcat::mc "Details  >>"]]
 
     # 1. Create the top-level window and divide it into top
     # and bottom parts.
diff --git a/library/choosedir.tcl b/library/choosedir.tcl
index bae35af..d9aa79d 100644
--- a/library/choosedir.tcl
+++ b/library/choosedir.tcl
@@ -5,7 +5,7 @@
 # Copyright (c) 1998-2000 by Scriptics Corporation.
 # All rights reserved.
 # 
-# RCS: @(#) $Id: choosedir.tcl,v 1.8 2000/06/23 00:22:28 ericm Exp $
+# RCS: @(#) $Id: choosedir.tcl,v 1.9 2000/06/30 06:38:38 ericm Exp $
 
 # Make sure the tk::dialog namespace, in which all dialogs should live, exists
 namespace eval ::tk::dialog {}
@@ -135,7 +135,7 @@ proc ::tk::dialog::file::chooseDir::Config {dataName argList} {
     tclParseConfigSpec ::tk::dialog::file::$dataName $specs "" $argList
 
     if {$data(-title) == ""} {
-	set data(-title) "Choose Directory"
+	set data(-title) "[::msgcat::mc "Choose Directory"]"
     }
 
     # Stub out the -multiple value for the dialog; it doesn't make sense for
diff --git a/library/clrpick.tcl b/library/clrpick.tcl
index 0dac803..c173015 100644
--- a/library/clrpick.tcl
+++ b/library/clrpick.tcl
@@ -3,7 +3,7 @@
 #	Color selection dialog for platforms that do not support a
 #	standard color selection dialog.
 #
-# RCS: @(#) $Id: clrpick.tcl,v 1.10 2000/04/04 08:09:24 hobbs Exp $
+# RCS: @(#) $Id: clrpick.tcl,v 1.11 2000/06/30 06:38:38 ericm Exp $
 #
 # Copyright (c) 1996 Sun Microsystems, Inc.
 #
@@ -164,7 +164,7 @@ proc tkColorDialog_Config {w argList} {
     set specs [list \
 	    [list -initialcolor "" "" $defaultColor] \
 	    [list -parent "" "" "."] \
-	    [list -title "" "" "Color"] \
+	    [list -title "" "" [::msgcat::mc "Color"]] \
 	    ]
 
     # 2: parse the arguments
@@ -197,16 +197,21 @@ proc tkColorDialog_BuildDialog {w} {
     # StripsFrame contains the colorstrips and the individual RGB entries
     set stripsFrame [frame $topFrame.colorStrip]
 
-    foreach c { Red Green Blue } {
-	set color [string tolower $c]
-
+    set maxWidth [::msgcat::mcmax Red Green Blue]
+    set maxWidth [expr $maxWidth<6?6:$maxWidth]
+    set colorList [list \
+	    red		[::msgcat::mc "Red"]	\
+	    green	[::msgcat::mc "Green"]	\
+	    blue	[::msgcat::mc "Blue"]	\
+	    ]
+    foreach {color l} $colorList {
 	# each f frame contains an [R|G|B] entry and the equiv. color strip.
 	set f [frame $stripsFrame.$color]
 
 	# The box frame contains the label and entry widget for an [R|G|B]
 	set box [frame $f.box]
 
-	label $box.label -text $c: -width 6 -under 0 -anchor ne
+	label $box.label -text $l: -width $maxWidth -under 0 -anchor ne
 	entry $box.entry -textvariable [format %s $w]($color,intensity) \
 	    -width 4
 	pack $box.label -side left -fill y -padx 2 -pady 3
@@ -251,7 +256,8 @@ proc tkColorDialog_BuildDialog {w} {
     # selected color
     #
     set selFrame [frame $topFrame.sel]
-    set lab [label $selFrame.lab -text "Selection:" -under 0 -anchor sw]
+    set lab [label $selFrame.lab -text [::msgcat::mc "Selection:"] \
+	    -under 0 -anchor sw]
     set ent [entry $selFrame.ent -textvariable [format %s $w](selection) \
 	-width 16]
     set f1  [frame $selFrame.f1 -relief sunken -bd 2]
@@ -269,10 +275,14 @@ proc tkColorDialog_BuildDialog {w} {
     # the botFrame frame contains the buttons
     #
     set botFrame [frame $w.bot -relief raised -bd 1]
-    button $botFrame.ok     -text OK            -width 8 -under 0 \
-	-command [list tkColorDialog_OkCmd $w]
-    button $botFrame.cancel -text Cancel        -width 8 -under 0 \
-	-command [list tkColorDialog_CancelCmd $w]
+    set maxWidth [::msgcat::mcmax OK Cancel]
+    set maxWidth [expr $maxWidth<8?8:$maxWidth]
+    button $botFrame.ok     -text [::msgcat::mc "OK"]		\
+	    -width $maxWidth -under 0				\
+	    -command [list tkColorDialog_OkCmd $w]
+    button $botFrame.cancel -text [::msgcat::mc "Cancel"]	\
+	    -width $maxWidth -under 0				\
+	    -command [list tkColorDialog_CancelCmd $w]
 
     set data(okBtn)      $botFrame.ok
     set data(cancelBtn)  $botFrame.cancel
@@ -309,7 +319,7 @@ proc tkColorDialog_SetRGBValue {w color} {
     tkColorDialog_RedrawColorBars $w all
 
     # Now compute the new x value of each colorbars pointer polygon
-    foreach color { red green blue } {
+    foreach color [list red green blue ] {
 	set x [tkColorDialog_RgbToX $w $data($color,intensity)]
 	tkColorDialog_MoveSelector $w $data($color,sel) $color $x 0
     }
@@ -582,7 +592,7 @@ proc tkColorDialog_ResizeColorBars {w} {
 	set data(BARS_WIDTH) $data(NUM_COLORBARS)
     }
     tkColorDialog_InitValues $w
-    foreach color { red green blue } {
+    foreach color [list red green blue ] {
 	$data($color,col) configure -width $data(canvasWidth)
 	tkColorDialog_DrawColorScale $w $color 1
     }
@@ -617,7 +627,7 @@ proc tkColorDialog_HandleSelEntry {w} {
 proc tkColorDialog_HandleRGBEntry {w} {
     upvar #0 $w data
 
-    foreach c {red green blue} {
+    foreach c [list red green blue] {
 	if {[catch {
 	    set data($c,intensity) [expr {int($data($c,intensity))}]
 	}]} {
@@ -632,8 +642,8 @@ proc tkColorDialog_HandleRGBEntry {w} {
 	}
     }
 
-    tkColorDialog_SetRGBValue $w "$data(red,intensity) $data(green,intensity) \
-	$data(blue,intensity)"
+    tkColorDialog_SetRGBValue $w "$data(red,intensity) \
+	$data(green,intensity) $data(blue,intensity)"
 }    
 
 # mouse cursor enters a color bar
diff --git a/library/console.tcl b/library/console.tcl
index d6a66ea..db27d34 100644
--- a/library/console.tcl
+++ b/library/console.tcl
@@ -4,7 +4,7 @@
 # can be used by non-unix systems that do not have built-in support
 # for shells.
 #
-# RCS: @(#) $Id: console.tcl,v 1.8 2000/04/21 04:06:37 hobbs Exp $
+# RCS: @(#) $Id: console.tcl,v 1.9 2000/06/30 06:38:38 ericm Exp $
 #
 # Copyright (c) 1998-1999 Scriptics Corp.
 # Copyright (c) 1995-1997 Sun Microsystems, Inc.
@@ -39,35 +39,37 @@ proc tkConsoleInit {} {
     .menubar add cascade -label Edit -menu .menubar.edit -underline 0
 
     menu .menubar.file -tearoff 0
-    .menubar.file add command -label "Source..." -underline 0 \
-	    -command tkConsoleSource
-    .menubar.file add command -label "Hide Console" -underline 0 \
-	    -command {wm withdraw .}
+    .menubar.file add command -label [::msgcat::mc "Source..."] \
+	    -underline 0 -command tkConsoleSource
+    .menubar.file add command -label [::msgcat::mc "Hide Console"] \
+	    -underline 0  -command {wm withdraw .}
     if {[string compare $tcl_platform(platform) "macintosh"]} {
-	.menubar.file add command -label "Exit" -underline 1 -command exit
+	.menubar.file add command -label [::msgcat::mc "Exit"] \
+		-underline 1 -command exit
     } else {
-	.menubar.file add command -label "Quit" -command exit -accel Cmd-Q
+	.menubar.file add command -label [::msgcat::mc "Quit"] \
+		-command exit -accel Cmd-Q
     }
 
     menu .menubar.edit -tearoff 0
-    .menubar.edit add command -label "Cut" -underline 2 \
+    .menubar.edit add command -label [::msgcat::mc "Cut"] -underline 2 \
 	    -command { event generate .console <<Cut>> } -accel "$mod+X"
-    .menubar.edit add command -label "Copy" -underline 0 \
+    .menubar.edit add command -label [::msgcat::mc "Copy"] -underline 0 \
 	    -command { event generate .console <<Copy>> } -accel "$mod+C"
-    .menubar.edit add command -label "Paste" -underline 1 \
+    .menubar.edit add command -label [::msgcat::mc "Paste"] -underline 1 \
 	    -command { event generate .console <<Paste>> } -accel "$mod+V"
 
     if {[string compare $tcl_platform(platform) "windows"]} {
-	.menubar.edit add command -label "Clear" -underline 2 \
+	.menubar.edit add command -label [::msgcat::mc "Clear"] -underline 2 \
 		-command { event generate .console <<Clear>> }
     } else {
-	.menubar.edit add command -label "Delete" -underline 0 \
+	.menubar.edit add command -label [::msgcat::mc "Delete"] -underline 0 \
 		-command { event generate .console <<Clear>> } -accel "Del"
-
+	
 	.menubar add cascade -label Help -menu .menubar.help -underline 0
 	menu .menubar.help -tearoff 0
-	.menubar.help add command -label "About..." -underline 0 \
-		-command tkConsoleAbout
+	.menubar.help add command -label [::msgcat::mc "About..."] \
+		-underline 0 -command tkConsoleAbout
     }
 
     . configure -menu .menubar
@@ -93,7 +95,7 @@ proc tkConsoleInit {} {
     focus .console
     
     wm protocol . WM_DELETE_WINDOW { wm withdraw . }
-    wm title . "Console"
+    wm title . [::msgcat::mc "Console"]
     flush stdout
     .console mark set output [.console index "end - 1 char"]
     tkTextSetCursor .console end
@@ -110,8 +112,10 @@ proc tkConsoleInit {} {
 
 proc tkConsoleSource {} {
     set filename [tk_getOpenFile -defaultextension .tcl -parent . \
-		      -title "Select a file to source" \
-		      -filetypes {{"Tcl Scripts" .tcl} {"All Files" *}}]
+		      -title [::msgcat::mc "Select a file to source"] \
+		      -filetypes [list \
+			  [list [::msgcat::mc "Tcl Scripts"] .tcl] \
+			  [list [::msgcat::mc "All Files"] *]]]
     if {[string compare $filename ""]} {
     	set cmd [list source $filename]
 	if {[catch {consoleinterp eval $cmd} result]} {
@@ -471,7 +475,7 @@ proc tkConsoleExit {} {
 
 proc tkConsoleAbout {} {
     global tk_patchLevel
-    tk_messageBox -type ok -message "Tcl for Windows
+    tk_messageBox -type ok -message "[::msgcat::mc {Tcl for Windows}]
 Copyright \251 2000 Scriptics Corporation
 
 Tcl [info patchlevel]
diff --git a/library/msgbox.tcl b/library/msgbox.tcl
index 369d4c9..1ed1acc 100644
--- a/library/msgbox.tcl
+++ b/library/msgbox.tcl
@@ -3,7 +3,7 @@
 #	Implements messageboxes for platforms that do not have native
 #	messagebox support.
 #
-# RCS: @(#) $Id: msgbox.tcl,v 1.11 2000/04/27 18:28:59 ericm Exp $
+# RCS: @(#) $Id: msgbox.tcl,v 1.12 2000/06/30 06:38:38 ericm Exp $
 #
 # Copyright (c) 1994-1997 Sun Microsystems, Inc.
 #
@@ -170,44 +170,67 @@ proc tkMessageBox {args} {
 
     switch -- $data(-type) {
 	abortretryignore {
-	    set buttons {
-		{abort  -width 6 -text Abort -under 0}
-		{retry  -width 6 -text Retry -under 0}
-		{ignore -width 6 -text Ignore -under 0}
-	    }
+		set maxWidth [::msgcat::mcmax Abort Retry Ignore]
+		set maxWidth [expr $maxWidth<6?6:$maxWidth]
+	    set buttons [list \
+		[list abort  -width $maxWidth -text [::msgcat::mc "Abort"] \
+		    -under 0]\
+		[list retry  -width $maxWidth -text [::msgcat::mc "Retry"] \
+		    -under 0]\
+		[list ignore -width $maxWidth -text [::msgcat::mc "Ignore"] \
+		    -under 0]\
+	    ]
 	}
 	ok {
-	    set buttons {
-		{ok -width 6 -text OK -under 0}
-	    }
+	    set buttons [list \
+		[list ok -width [::msgcat::mcmax OK] \
+		    -text [::msgcat::mc {OK}] -under 0] \
+	    ]
 	    if {[string equal $data(-default) ""]} {
 		set data(-default) "ok"
 	    }
 	}
 	okcancel {
-	    set buttons {
-		{ok     -width 6 -text OK     -under 0}
-		{cancel -width 6 -text Cancel -under 0}
-	    }
+		set maxWidth [::msgcat::mcmax OK Cancel]
+		set maxWidth [expr $maxWidth<6?6:$maxWidth]
+	    set buttons [list \
+		[list ok     -width $maxWidth \
+		    -text [::msgcat::mc "OK"]     -under 0] \
+		[list cancel -width $maxWidth \
+		    -text [::msgcat::mc "Cancel"] -under 0] \
+	    ]
 	}
 	retrycancel {
-	    set buttons {
-		{retry  -width 6 -text Retry  -under 0}
-		{cancel -width 6 -text Cancel -under 0}
-	    }
+		set maxWidth [::msgcat::mcmax Retry Cancel]
+		set maxWidth [expr $maxWidth<6?6:$maxWidth]
+	    set buttons [list \
+		[list retry  -width $maxWidth \
+		    -text [::msgcat::mc "Retry"]  -under 0] \
+		[list cancel -width $maxWidth \
+		    -text [::msgcat::mc "Cancel"] -under 0] \
+	    ]
 	}
 	yesno {
-	    set buttons {
-		{yes    -width 6 -text Yes -under 0}
-		{no     -width 6 -text No  -under 0}
-	    }
+		set maxWidth [::msgcat::mcmax Yes No]
+		set maxWidth [expr $maxWidth<6?6:$maxWidth]
+	    set buttons [list \
+		[list yes    -width $maxWidth \
+		    -text [::msgcat::mc "Yes"] -under 0]\
+		[list no     -width $maxWidth \
+		    -text [::msgcat::mc "No"]  -under 0]\
+	    ]
 	}
 	yesnocancel {
-	    set buttons {
-		{yes    -width 6 -text Yes -under 0}
-		{no     -width 6 -text No  -under 0}
-		{cancel -width 6 -text Cancel -under 0}
-	    }
+		set maxWidth [::msgcat::mcmax Yes No Cancel]
+		set maxWidth [expr $maxWidth<6?6:$maxWidth]
+	    set buttons [list \
+		[list yes    -width $maxWidth \
+		    -text [::msgcat::mc "Yes"] -under 0]\
+		[list no     -width $maxWidth \
+		    -text [::msgcat::mc "No"]  -under 0]\
+		[list cancel -width $maxWidth \
+		    -text [::msgcat::mc "Cancel"] -under 0]\
+	    ]
 	}
 	default {
 	    error "bad -type value \"$data(-type)\": must be abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel"
diff --git a/library/msgs/de.msg b/library/msgs/de.msg
new file mode 100644
index 0000000..8798da9
--- /dev/null
+++ b/library/msgs/de.msg
@@ -0,0 +1,67 @@
+::msgcat::mcset de "Abort" "Abbruch"
+::msgcat::mcset de "About..." "Ueber..."
+::msgcat::mcset de "All Files" "Alle Dateien"
+::msgcat::mcset de "Application Error" "Applikationsfehler"
+::msgcat::mcset de "Blue" "Blau"
+::msgcat::mcset de "Cancel" "Abbruch"
+::msgcat::mcset de "Cannot change to the directory \"%1\$s\".\nPermission denied." "Kann nicht in das Verzeichnis \"%1\$s\" wechseln.\nKeine Rechte vorhanden."
+::msgcat::mcset de "Choose Directory" "Waehle Verzeichnis"
+::msgcat::mcset de "Clear" "Ruecksetzen"
+::msgcat::mcset de "Color" "Farbe"
+::msgcat::mcset de "Console" "Konsole"
+::msgcat::mcset de "Copy" "Kopieren"
+::msgcat::mcset de "Cut" "Ausschneiden"
+::msgcat::mcset de "Delete" "Loeschen"
+::msgcat::mcset de "Details >>"
+::msgcat::mcset de "Directory \"%1\$s\" does not exist." "Das Verzeichnis \"%1\$s\" existiert nicht."
+::msgcat::mcset de "Directory:" "Verzeichnis:"
+::msgcat::mcset de "Error: %1\$s" "Fehler: %1\$s"
+::msgcat::mcset de "Exit"
+::msgcat::mcset de "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Die Datei \"%1\$s\" ist bereits vorhanden.\nWollen sie diese Datei ueberschreiben ?"
+::msgcat::mcset de "File \"%1\$s\" already exists.\n\n" "Die Datei \"%1\$s\" ist bereits vorhanden.\n\n"
+::msgcat::mcset de "File \"%1\$s\" does not exist." "Die Datei \"%1\$s\" existiert nicht."
+::msgcat::mcset de "File name:" "Dateiname:"
+::msgcat::mcset de "File names:" "Nombre de archivos:"
+::msgcat::mcset de "Files of type:" "Dateien des Typs:"
+::msgcat::mcset de "Files:" "Dateien:"
+::msgcat::mcset de "Filter"
+::msgcat::mcset de "Filter:"
+::msgcat::mcset de "Green" "Gruen"
+::msgcat::mcset de "Hi" "Hallo"
+::msgcat::mcset de "Hide Console" "Konsole unsichtbar machen"
+::msgcat::mcset de "Ignore" "Ignorieren"
+::msgcat::mcset de "Invalid file name \"%1\$s\"." "Ungueltiger Dateiname \"%1\$s\"."
+::msgcat::mcset de "Log Files" "Protokolldatei"
+::msgcat::mcset de "No" "Nein"
+::msgcat::mcset de "OK"
+::msgcat::mcset de "Ok"
+::msgcat::mcset de "Open" "Oeffnen"
+::msgcat::mcset de "Open Multiple Files"
+::msgcat::mcset de "Paste" "Einfuegen"
+::msgcat::mcset de "Quit" "Beenden"
+::msgcat::mcset de "Red" "Rot"
+::msgcat::mcset de "Replace existing file?" "Existierende Datei ersetzen ?"
+::msgcat::mcset de "Retry" "Wiederholen"
+::msgcat::mcset de "Save" "Speichern"
+::msgcat::mcset de "Save As" "Speichern unter"
+::msgcat::mcset de "Save To Log" "In Protokoll speichern"
+::msgcat::mcset de "Select Log File" "Protokolldatei auswaehlen"
+::msgcat::mcset de "Select a file to source" "Auszufuehrende Datei auswaehlen"
+::msgcat::mcset de "Selection:" "Auswahl:"
+::msgcat::mcset de "Skip Messages" "Weitere Nachrichten ueberspringen"
+::msgcat::mcset de "Source..." "Ausfuehren..."
+::msgcat::mcset de "Tcl Scripts" "Tcl Skripte"
+::msgcat::mcset de "Tcl for Windows" "Tcl fuer Windows"
+::msgcat::mcset de "Text Files" "Textdateien"
+::msgcat::mcset de "Yes" "Ja"
+::msgcat::mcset de "abort" "abbrechen"
+::msgcat::mcset de "blue" "blau"
+::msgcat::mcset de "cancel" "abbrechen"
+::msgcat::mcset de "extension" "Erweiterung"
+::msgcat::mcset de "extensions" "Erweiterungen"
+::msgcat::mcset de "green" "gruen"
+::msgcat::mcset de "ignore" "ignorieren"
+::msgcat::mcset de "ok"
+::msgcat::mcset de "red" "rot"
+::msgcat::mcset de "retry" "wiederholen"
+::msgcat::mcset de "yes" "ja"
diff --git a/library/msgs/en.msg b/library/msgs/en.msg
new file mode 100644
index 0000000..d49d543
--- /dev/null
+++ b/library/msgs/en.msg
@@ -0,0 +1,67 @@
+::msgcat::mcset en "Abort"
+::msgcat::mcset en "About..."
+::msgcat::mcset en "All Files"
+::msgcat::mcset en "Application Error"
+::msgcat::mcset en "Blue"
+::msgcat::mcset en "Cancel"
+::msgcat::mcset en "Cannot change to the directory \"%1\$s\".\nPermission denied."
+::msgcat::mcset en "Choose Directory"
+::msgcat::mcset en "Clear"
+::msgcat::mcset en "Color"
+::msgcat::mcset en "Console"
+::msgcat::mcset en "Copy"
+::msgcat::mcset en "Cut"
+::msgcat::mcset en "Delete"
+::msgcat::mcset en "Details >>"
+::msgcat::mcset en "Directory \"%1\$s\" does not exist."
+::msgcat::mcset en "Directory:"
+::msgcat::mcset en "Error: %1\$s"
+::msgcat::mcset en "Exit"
+::msgcat::mcset en "File \"%1\$s\" already exists.\nDo you want to overwrite it?"
+::msgcat::mcset en "File \"%1\$s\" already exists.\n\n"
+::msgcat::mcset en "File \"%1\$s\" does not exist."
+::msgcat::mcset en "File name:"
+::msgcat::mcset en "File names:"
+::msgcat::mcset en "Files of type:"
+::msgcat::mcset en "Files:"
+::msgcat::mcset en "Filter"
+::msgcat::mcset en "Filter:"
+::msgcat::mcset en "Green"
+::msgcat::mcset en "Hi"
+::msgcat::mcset en "Hide Console"
+::msgcat::mcset en "Ignore"
+::msgcat::mcset en "Invalid file name \"%1\$s\"."
+::msgcat::mcset en "Log Files"
+::msgcat::mcset en "No"
+::msgcat::mcset en "OK"
+::msgcat::mcset en "Ok"
+::msgcat::mcset en "Open"
+::msgcat::mcset en "Open Multiple Files"
+::msgcat::mcset en "Paste"
+::msgcat::mcset en "Quit"
+::msgcat::mcset en "Red"
+::msgcat::mcset en "Replace existing file?"
+::msgcat::mcset en "Retry"
+::msgcat::mcset en "Save"
+::msgcat::mcset en "Save As"
+::msgcat::mcset en "Save To Log"
+::msgcat::mcset en "Select Log File"
+::msgcat::mcset en "Select a file to source"
+::msgcat::mcset en "Selection:"
+::msgcat::mcset en "Skip Messages"
+::msgcat::mcset en "Source..."
+::msgcat::mcset en "Tcl Scripts"
+::msgcat::mcset en "Tcl for Windows"
+::msgcat::mcset en "Text Files"
+::msgcat::mcset en "Yes"
+::msgcat::mcset en "abort"
+::msgcat::mcset en "blue"
+::msgcat::mcset en "cancel"
+::msgcat::mcset en "extension"
+::msgcat::mcset en "extensions"
+::msgcat::mcset en "green"
+::msgcat::mcset en "ignore"
+::msgcat::mcset en "ok"
+::msgcat::mcset en "red"
+::msgcat::mcset en "retry"
+::msgcat::mcset en "yes"
diff --git a/library/msgs/es.msg b/library/msgs/es.msg
new file mode 100644
index 0000000..b61dc5a
--- /dev/null
+++ b/library/msgs/es.msg
@@ -0,0 +1,67 @@
+::msgcat::mcset es "Abort" "Abortar"
+::msgcat::mcset es "About..." "Acerca de ..."
+::msgcat::mcset es "All Files" "Todos los archivos"
+::msgcat::mcset es "Application Error" "Error de la aplicaci\u00f3n"
+::msgcat::mcset es "Blue" "Azul"
+::msgcat::mcset es "Cancel" "Cancelar"
+::msgcat::mcset es "Cannot change to the directory \"%1\$s\".\nPermission denied." "No es posible acceder al directorio \"%1\$s\".\nPermiso denegado."
+::msgcat::mcset es "Choose Directory" "Elegir directorio"
+::msgcat::mcset es "Clear" "Borrar"
+::msgcat::mcset es "Color"
+::msgcat::mcset es "Console" "Consola"
+::msgcat::mcset es "Copy" "Copiar"
+::msgcat::mcset es "Cut" "Cortar"
+::msgcat::mcset es "Delete" "Borrar"
+::msgcat::mcset es "Details >>"
+::msgcat::mcset es "Directory \"%1\$s\" does not exist." "El directorio \"%1\$s\" no existe."
+::msgcat::mcset es "Directory:" "Directorio:"
+::msgcat::mcset es "Error: %1\$s"
+::msgcat::mcset es "Exit" "Salir"
+::msgcat::mcset es "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "El archivo \"%1\$s\" ya existe.\nDesea sobreescribirlo?"
+::msgcat::mcset es "File \"%1\$s\" already exists.\n\n" "El archivo \"%1\$s\" ya existe.\n\n"
+::msgcat::mcset es "File \"%1\$s\" does not exist." "El archivo \"%1\$s\" no existe."
+::msgcat::mcset es "File name:" "Nombre de archivo:"
+::msgcat::mcset es "File names:"
+::msgcat::mcset es "Files of type:" "Archivos de tipo:"
+::msgcat::mcset es "Files:" "Archivos:"
+::msgcat::mcset es "Filter" "Filtro"
+::msgcat::mcset es "Filter:" "Filtro:"
+::msgcat::mcset es "Green" "Verde"
+::msgcat::mcset es "Hi" "Hola"
+::msgcat::mcset es "Hide Console" "Esconder la consola"
+::msgcat::mcset es "Ignore" "Ignorar"
+::msgcat::mcset es "Invalid file name \"%1\$s\"." "Nombre de archivo inv\u00e1lido \"%1\$s\"."
+::msgcat::mcset es "Log Files" "Ficheros de traza"
+::msgcat::mcset es "No"
+::msgcat::mcset es "OK"
+::msgcat::mcset es "Ok"
+::msgcat::mcset es "Open" "Abrir"
+::msgcat::mcset es "Open Multiple Files"
+::msgcat::mcset es "Paste" "Pegar"
+::msgcat::mcset es "Quit" "Abandonar"
+::msgcat::mcset es "Red" "Rojo"
+::msgcat::mcset es "Replace existing file?" "Reemplazar el archivo existente?"
+::msgcat::mcset es "Retry" "Reintentar"
+::msgcat::mcset es "Save" "Salvar"
+::msgcat::mcset es "Save As" "Salvar como"
+::msgcat::mcset es "Save To Log" "Salvar al archivo de traza"
+::msgcat::mcset es "Select Log File" "Elegir un archivo de traza"
+::msgcat::mcset es "Select a file to source" "Seleccionar un archivo a evaluar"
+::msgcat::mcset es "Selection:" "Selecci\u00f3n:"
+::msgcat::mcset es "Skip Messages" "Omitir los mensajes"
+::msgcat::mcset es "Source..." "Evaluar..."
+::msgcat::mcset es "Tcl Scripts" "Scripts Tcl"
+::msgcat::mcset es "Tcl for Windows" "Tcl para Windows"
+::msgcat::mcset es "Text Files" "Archivos de texto"
+::msgcat::mcset es "Yes" "Si"
+::msgcat::mcset es "abort" "abortar"
+::msgcat::mcset es "blue" "azul"
+::msgcat::mcset es "cancel" "cancelar"
+::msgcat::mcset es "extension" "extensi\u00f3n"
+::msgcat::mcset es "extensions" "extensiones"
+::msgcat::mcset es "green" "verde"
+::msgcat::mcset es "ignore" "ignorar"
+::msgcat::mcset es "ok"
+::msgcat::mcset es "red" "rojo"
+::msgcat::mcset es "retry" "reintentar"
+::msgcat::mcset es "yes" "si"
diff --git a/library/msgs/fr.msg b/library/msgs/fr.msg
new file mode 100644
index 0000000..d0548aa
--- /dev/null
+++ b/library/msgs/fr.msg
@@ -0,0 +1,67 @@
+::msgcat::mcset fr "Abort" "Annuler"
+::msgcat::mcset fr "About..." "\u00c0 propos..."
+::msgcat::mcset fr "All Files" "Tous les fichiers"
+::msgcat::mcset fr "Application Error" "Erreur d'application"
+::msgcat::mcset fr "Blue" "Bleu"
+::msgcat::mcset fr "Cancel" "Annuler"
+::msgcat::mcset fr "Cannot change to the directory \"%1\$s\".\nPermission denied." "Impossible d'acc\u00e9der au r\u00e9pertoire \"%1\$s\".\nPermission refus\u00e9e."
+::msgcat::mcset fr "Choose Directory" "Choisir r\u00e9pertoire"
+::msgcat::mcset fr "Clear" "Effacer"
+::msgcat::mcset fr "Color" "Couleur"
+::msgcat::mcset fr "Console"
+::msgcat::mcset fr "Copy" "Copier"
+::msgcat::mcset fr "Cut" "Couper"
+::msgcat::mcset fr "Delete" "Effacer"
+::msgcat::mcset fr "Details >>" "D\u00e9tails >>"
+::msgcat::mcset fr "Directory \"%1\$s\" does not exist."
+::msgcat::mcset fr "Directory:" "R\u00e9pertoire:"
+::msgcat::mcset fr "Error: %1\$s"
+::msgcat::mcset fr "Exit"
+::msgcat::mcset fr "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Le fichier \"%1\$s\" existe d\u00e9j\u00e0.\nVoulez-vous l'\u00e9craser?"
+::msgcat::mcset fr "File \"%1\$s\" already exists.\n\n" "Le fichier \"%1\$s\" existe d\u00e9j\u00e0.\n\n"
+::msgcat::mcset fr "File \"%1\$s\" does not exist." "Le fichier \"%1\$s\" n'existe pas."
+::msgcat::mcset fr "File name:" "Nom de fichier:"
+::msgcat::mcset fr "File names:" "Noms de fichiers:"
+::msgcat::mcset fr "Files of type:" "Type de fichiers:"
+::msgcat::mcset fr "Files:" "Fichiers:"
+::msgcat::mcset fr "Filter" "Filtre"
+::msgcat::mcset fr "Filter:" "Filtre:"
+::msgcat::mcset fr "Green" "Vert"
+::msgcat::mcset fr "Hi" "All\u00f4"
+::msgcat::mcset fr "Hide Console" "Cacher la Console"
+::msgcat::mcset fr "Ignore" "Ignorer"
+::msgcat::mcset fr "Invalid file name \"%1\$s\"." "Nom de fichier invalide \"%1\$s\"."
+::msgcat::mcset fr "Log Files" "Fichiers de trace"
+::msgcat::mcset fr "No" "Non"
+::msgcat::mcset fr "OK"
+::msgcat::mcset fr "Ok"
+::msgcat::mcset fr "Open" "Ouvrir"
+::msgcat::mcset fr "Open Multiple Files" "Ouvrir plusieurs fichiers"
+::msgcat::mcset fr "Paste" "Coller"
+::msgcat::mcset fr "Quit" "Abandonner"
+::msgcat::mcset fr "Red" "Rouge"
+::msgcat::mcset fr "Replace existing file?" "Remplacer fichier existant?"
+::msgcat::mcset fr "Retry" "R\u00e9-essayer"
+::msgcat::mcset fr "Save" "Sauvegarder"
+::msgcat::mcset fr "Save As" "Sauvegarder sous"
+::msgcat::mcset fr "Save To Log" "Sauvegarde au fichier de trace"
+::msgcat::mcset fr "Select Log File" "Choisir un fichier de trace"
+::msgcat::mcset fr "Select a file to source" "Choisir un fichier \u00e0 \u00e9valuer"
+::msgcat::mcset fr "Selection:" "S\u00e9lection:"
+::msgcat::mcset fr "Skip Messages" "Omettre les messages"
+::msgcat::mcset fr "Source..." "\u00c9valuer..."
+::msgcat::mcset fr "Tcl Scripts" "Scripts Tcl"
+::msgcat::mcset fr "Tcl for Windows" "Tcl pour Windows"
+::msgcat::mcset fr "Text Files" "Fichiers texte"
+::msgcat::mcset fr "Yes" "Oui"
+::msgcat::mcset fr "abort" "annuler"
+::msgcat::mcset fr "blue" "bleu"
+::msgcat::mcset fr "cancel" "annuler"
+::msgcat::mcset fr "extension"
+::msgcat::mcset fr "extensions"
+::msgcat::mcset fr "green" "vert"
+::msgcat::mcset fr "ignore" "ignorer"
+::msgcat::mcset fr "ok"
+::msgcat::mcset fr "red" "rouge"
+::msgcat::mcset fr "retry" "r\u00e9-essayer"
+::msgcat::mcset fr "yes" "oui"
diff --git a/library/tk.tcl b/library/tk.tcl
index 12ac1ba..32de9e1 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -3,7 +3,7 @@
 # Initialization script normally executed in the interpreter for each
 # Tk-based application.  Arranges class bindings for widgets.
 #
-# RCS: @(#) $Id: tk.tcl,v 1.22 2000/05/29 01:43:15 hobbs Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.23 2000/06/30 06:38:38 ericm Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -16,6 +16,8 @@
 
 package require -exact Tk 8.4
 package require -exact Tcl 8.4
+package require msgcat
+::msgcat::mcload [file join $::tk_library msgs]
 
 # Add Tk's directory to the end of the auto-load search path, if it
 # isn't already on the path:
diff --git a/library/tkfbox.tcl b/library/tkfbox.tcl
index 9987abe..d8d9be1 100644
--- a/library/tkfbox.tcl
+++ b/library/tkfbox.tcl
@@ -11,7 +11,7 @@
 #	files by clicking on the file icons or by entering a filename
 #	in the "Filename:" entry.
 #
-# RCS: @(#) $Id: tkfbox.tcl,v 1.20 2000/06/23 00:22:28 ericm Exp $
+# RCS: @(#) $Id: tkfbox.tcl,v 1.21 2000/06/30 06:38:38 ericm Exp $
 #
 # Copyright (c) 1994-1998 Sun Microsystems, Inc.
 #
@@ -921,9 +921,9 @@ proc ::tk::dialog::file::Config {dataName type argList} {
 
     if {$data(-title) == ""} {
 	if {[string equal $type "open"]} {
-	    set data(-title) "Open"
+	    set data(-title) "[::msgcat::mc "Open"]"
 	} else {
-	    set data(-title) "Save As"
+	    set data(-title) "[::msgcat::mc "Save As"]"
 	}
     }
 
@@ -974,7 +974,7 @@ proc ::tk::dialog::file::Create {w class} {
     # f1: the frame with the directory option menu
     #
     set f1 [frame $w.f1]
-    label $f1.lab -text "Directory:" -under 0
+    label $f1.lab -text "[::msgcat::mc "Directory:"]" -under 0
     set data(dirMenuBtn) $f1.menu
     set data(dirMenu) [tk_optionMenu $f1.menu [format %s(selectPath) ::tk::dialog::file::$dataName] ""]
     set data(upBtn) [button $f1.up]
@@ -1002,15 +1002,19 @@ static char updir_bits[] = {
     #
     if { [string equal $class TkFDialog] } {
 	if { $data(-multiple) } {
-	    set fNameCaption "File names:"
+		set fNameCaption "[::msgcat::mc {File names:}]"
 	} else {
-	    set fNameCaption "File name:"
+		set fNameCaption "[::msgcat::mc {File name:}]"
 	}
+	set fTypeCaption [::msgcat::mc "Files of type:"]
+	set fCaptionWidth [::msgcat::mcmax $fNameCaption $fTypeCaption]
+	set fCaptionWidth [expr {$fCaptionWidth<14?14:$fCaptionWidth}]
 	set fNameUnder 5
 	set iconListCommand [list ::tk::dialog::file::OkCmd $w]
     } else {
-	set fNameCaption "Selection:"
+	set fNameCaption [::msgcat::mc "Selection:"]
 	set fNameUnder 0
+	set fCaptionWidth [string length $fNameCaption]
 	set iconListCommand [list ::tk::dialog::file::chooseDir::DblClick $w]
     }
     set data(icons) [tkIconList $w.icons \
@@ -1022,7 +1026,7 @@ static char updir_bits[] = {
     # f2: the frame with the OK button and the "file name" field
     #
     set f2 [frame $w.f2 -bd 0]
-    label $f2.lab -text $fNameCaption -anchor e -width 14 \
+    label $f2.lab -text $fNameCaption -anchor e -width $fCaptionWidth \
 	    -under $fNameUnder -pady 0
     set data(ent) [entry $f2.ent]
 
@@ -1043,8 +1047,8 @@ static char updir_bits[] = {
 	# use a button widget to emulate a label widget (by setting its
 	# bindtags)
 	
-	set data(typeMenuLab) [button $f3.lab -text "Files of type:" \
-		-anchor e -width 14 -under 9 \
+	set data(typeMenuLab) [button $f3.lab -text $fTypeCaption \
+		-anchor e -width $fCaptionWidth -under 9 \
 		-bd [$f2.lab cget -bd] \
 		-highlightthickness [$f2.lab cget -highlightthickness] \
 		-relief [$f2.lab cget -relief] \
@@ -1062,10 +1066,12 @@ static char updir_bits[] = {
 
     # the okBtn is created after the typeMenu so that the keyboard traversal
     # is in the right order
-    set data(okBtn)     [button $f2.ok     -text OK     -under 0 -width 6 \
-	-default active -pady 3]
-    set data(cancelBtn) [button $f3.cancel -text Cancel -under 0 -width 6\
-	-default normal -pady 3]
+	set maxWidth [::msgcat::mcmax OK Cancel]
+	set maxWidth [expr {$maxWidth<6?6:$maxWidth}]
+    set data(okBtn)     [button $f2.ok     -text "[::msgcat::mc "OK"]" \
+	-under 0 -width $maxWidth -default active -pady 3]
+    set data(cancelBtn) [button $f3.cancel -text "[::msgcat::mc "Cancel"]" \
+	-under 0 -width $maxWidth -default normal -pady 3]
 
     # pack the widgets in f2 and f3
     #
@@ -1140,9 +1146,9 @@ proc ::tk::dialog::file::SetSelectMode {w multi} {
     set dataName __tk_filedialog
     upvar ::tk::dialog::file::$dataName data
     if { $multi } {
-	set fNameCaption "File names:"
+		set fNameCaption "[::msgcat::mc {File names:}]"
     } else {
-	set fNameCaption "File name:"
+		set fNameCaption "[::msgcat::mc {File name:}]"
     }
     set fNameUnder 5
     set iconListCommand [list ::tk::dialog::file::OkCmd $w]
@@ -1213,7 +1219,7 @@ rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}]
 	# we normally won't come to here. Anyways, give an error and abort
 	# action.
 	tk_messageBox -type ok -parent $w -message \
-	    "Cannot change to the directory \"$data(selectPath)\".\nPermission denied."\
+	    "[::msgcat::mc "Cannot change to the directory \"%1\$s\".\nPermission denied." $data(selectPath)]"\
 	    -icon warning
 	cd $appPWD
 	return
@@ -1293,9 +1299,19 @@ rSASvJTGhnhcV3EJlo3kh53ltF5nAhQAOw==}]
 	# Restore the Open/Save Button if this is a File Dialog
 	#
 	if {[string equal $data(type) open]} {
-	    $data(okBtn) config -text "Open"
+	    $data(okBtn) config -text "[::msgcat::mc "Open"]"
+		set maxWidth [string length [::msgcat::mc "Open"]]
+		if {$maxWidth>[$data(okBtn) cget -width]} {
+			$data(okBtn) config -width $maxWidth
+			$data(cancelBtn) config -width $maxWidth
+		}
 	} else {
-	    $data(okBtn) config -text "Save"
+	    $data(okBtn) config -text "[::msgcat::mc "Save"]"
+		set maxWidth [string length [::msgcat::mc "Save"]]
+		if {$maxWidth>[$data(okBtn) cget -width]} {
+			$data(okBtn) config -width $maxWidth
+			$data(cancelBtn) config -width $maxWidth
+		}
 	}
     }
 
@@ -1461,9 +1477,9 @@ proc ::tk::dialog::file::EntFocusIn {w} {
     if { [string equal [winfo class $w] TkFDialog] } {
 	# If this is a File Dialog, make sure the buttons are labeled right.
 	if {[string equal $data(type) open]} {
-	    $data(okBtn) config -text "Open"
+	    $data(okBtn) config -text "[::msgcat::mc "Open"]"
 	} else {
-	    $data(okBtn) config -text "Save"
+	    $data(okBtn) config -text "[::msgcat::mc "Save"]"
 	}
     }
 }
@@ -1525,7 +1541,7 @@ proc ::tk::dialog::file::VerifyFileName {w filename} {
 	FILE {
 	    if {[string equal $data(type) open]} {
 		tk_messageBox -icon warning -type ok -parent $w \
-		    -message "File \"[file join $path $file]\" does not exist."
+		    -message "[::msgcat::mc "File \"%1\$s\"  does not exist." [file join $path $file]]"
 		$data(ent) selection range 0 end
 		$data(ent) icursor end
 	    } else {
@@ -1540,20 +1556,20 @@ proc ::tk::dialog::file::VerifyFileName {w filename} {
 	}
 	PATH {
 	    tk_messageBox -icon warning -type ok -parent $w \
-		-message "Directory \"$path\" does not exist."
+		-message "[::msgcat::mc "Directory \"%1\$s\" does not exist." $path]"
 	    $data(ent) selection range 0 end
 	    $data(ent) icursor end
 	}
 	CHDIR {
 	    tk_messageBox -type ok -parent $w -message \
-	       "Cannot change to the directory \"$path\".\nPermission denied."\
+	       "[::msgcat::mc "Cannot change to the directory \"%1\$s\".\nPermission denied." $path]"\
 		-icon warning
 	    $data(ent) selection range 0 end
 	    $data(ent) icursor end
 	}
 	ERROR {
 	    tk_messageBox -type ok -parent $w -message \
-	       "Invalid file name \"$path\"."\
+	       "[::msgcat::mc "Invalid file name \"%1\$s\"." $path]"\
 		-icon warning
 	    $data(ent) selection range 0 end
 	    $data(ent) icursor end
@@ -1657,14 +1673,14 @@ proc ::tk::dialog::file::ListBrowse {w} {
 
 	if { [string equal [winfo class $w] TkFDialog] } {
 	    if {[string equal $data(type) open]} {
-		$data(okBtn) config -text "Open"
+		$data(okBtn) config -text "[::msgcat::mc "Open"]"
 	    } else {
-		$data(okBtn) config -text "Save"
+		$data(okBtn) config -text "[::msgcat::mc "Save"]"
 	    }
 	}
     } else {
 	if { [string equal [winfo class $w] TkFDialog] } {
-	    $data(okBtn) config -text "Open"
+	    $data(okBtn) config -text "[::msgcat::mc "Open"]"
 	}
     }
 }
@@ -1687,7 +1703,7 @@ proc ::tk::dialog::file::ListInvoke {w text} {
 	set appPWD [pwd]
 	if {[catch {cd $file}]} {
 	    tk_messageBox -type ok -parent $w -message \
-	       "Cannot change to the directory \"$file\".\nPermission denied."\
+	       "[::msgcat::mc "Cannot change to the directory \"%1\$s\".\nPermission denied." $file]"\
 		-icon warning
 	} else {
 	    cd $appPWD
@@ -1732,12 +1748,11 @@ proc ::tk::dialog::file::Done {w {selectFilePath ""}} {
 
 	if {[string equal $data(type) save]} {
 	    if {[file exists $selectFilePath]} {
-		set reply [tk_messageBox -icon warning -type yesno\
-			-parent $w -message "File\
-			\"$selectFilePath\" already exists.\nDo\
-			you want to overwrite it?"]
-		if {[string equal $reply "no"]} {
-		    return
+	    set reply [tk_messageBox -icon warning -type yesno\
+		    -parent $w -message \
+			"[::msgcat::mc "File \"%1\$s\" already exists.\nDo you want to overwrite it?" $selectFilePath]"]
+	    if {[string equal $reply "no"]} {
+		return
 		}
 	    }
 	}
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"]} {
diff --git a/unix/Makefile.in b/unix/Makefile.in
index 2c73faf..4978a1b 100644
--- a/unix/Makefile.in
+++ b/unix/Makefile.in
@@ -5,12 +5,13 @@
 # "autoconf" program (constructs like "@foo@" will get replaced in the
 # actual Makefile.
 #
-# RCS: @(#) $Id: Makefile.in,v 1.46 2000/05/03 00:18:19 hobbs Exp $
+# RCS: @(#) $Id: Makefile.in,v 1.47 2000/06/30 06:38:40 ericm Exp $
 
 # Current Tk version;  used in various names.
 
 TCLVERSION		= @TCL_VERSION@
 VERSION			= @TK_VERSION@
+LOCALES			= @LOCALES@
 
 #----------------------------------------------------------------
 # Things you can change to personalize the Makefile for your own
@@ -418,6 +419,21 @@ test: tktest
 	TK_LIBRARY=@TK_SRC_DIR@/library; export TK_LIBRARY; \
 	./tktest $(TOP_DIR)/tests/all.tcl -geometry +0+0 $(TCLTESTARGS)
 
+# Tests with different languages
+testlang: tktest
+	LD_LIBRARY_PATH=`pwd`:${TCL_BIN_DIR}:${LD_LIBRARY_PATH}; \
+	export LD_LIBRARY_PATH; \
+	LIBPATH=`pwd`:${TCL_BIN_DIR}:${LIBPATH}; export LIBPATH; \
+	SHLIB_PATH=`pwd`:${TCL_BIN_DIR}:${SHLIB_PATH}; \
+	export SHLIB_PATH; \
+	TCL_LIBRARY=@TCL_SRC_DIR@/library; export TCL_LIBRARY; \
+	TK_LIBRARY=@TK_SRC_DIR@/library; export TK_LIBRARY; \
+	for lang in $(LOCALES) ;  \
+	do \
+	LANG=$(lang); export LANG; \
+	./tktest $(TOP_DIR)/tests/all.tcl -geometry +0+0 $(TCLTESTARGS); \
+	done
+
 # Useful target to launch a built tktest with the proper path,...
 runtest: tktest
 	LD_LIBRARY_PATH=`pwd`:${TCL_BIN_DIR}:${LD_LIBRARY_PATH}; \
@@ -471,7 +487,8 @@ install-binaries: $(TK_LIB_FILE) $(TK_STUB_LIB_FILE) $(TK_BUILD_EXP_FILE) wish
 
 install-libraries:
 	@for i in $(INCLUDE_INSTALL_DIR) \
-		$(SCRIPT_INSTALL_DIR) $(SCRIPT_INSTALL_DIR)/images; \
+		$(SCRIPT_INSTALL_DIR) $(SCRIPT_INSTALL_DIR)/images \
+		$(SCRIPT_INSTALL_DIR)/msgs; \
 	    do \
 	    if [ ! -d $$i ] ; then \
 		echo "Making directory $$i"; \
@@ -501,6 +518,13 @@ install-libraries:
 		$(INSTALL_DATA) $$i $(SCRIPT_INSTALL_DIR)/images; \
 	    fi; \
 	    done;
+	@echo "Installing translation directory";
+	@for i in $(SRC_DIR)/library/msgs/*.msg; \
+	    do \
+	    if [ -f $$i ] ; then \
+		$(INSTALL_DATA) $$i $(SCRIPT_INSTALL_DIR)/msgs; \
+	    fi; \
+	    done;
 
 install-demos:
 	@for i in $(SCRIPT_INSTALL_DIR) \
diff --git a/unix/configure.in b/unix/configure.in
index e0d1848..7632343 100644
--- a/unix/configure.in
+++ b/unix/configure.in
@@ -3,13 +3,14 @@ dnl	This file is an input file used by the GNU "autoconf" program to
 dnl	generate the file "configure", which is run during Tk installation
 dnl	to configure the system for the local environment.
 AC_INIT(../generic/tk.h)
-# RCS: @(#) $Id: configure.in,v 1.50 2000/05/03 00:18:37 hobbs Exp $
+# RCS: @(#) $Id: configure.in,v 1.51 2000/06/30 06:38:40 ericm Exp $
 
 TK_VERSION=8.4
 TK_MAJOR_VERSION=8
 TK_MINOR_VERSION=4
 TK_PATCH_LEVEL="a1"
 VERSION=${TK_VERSION}
+LOCALES=de en es fr
 
 if test "${prefix}" = "NONE"; then
     prefix=/usr/local
@@ -455,5 +456,6 @@ AC_SUBST(TK_VERSION)
 AC_SUBST(XINCLUDES)
 AC_SUBST(XLIBSW)
 AC_SUBST(TK_SHARED_BUILD)
+AC_SUBST(LOCALES)
 
 AC_OUTPUT(Makefile tkConfig.sh)
-- 
cgit v0.12