namespacing ::tk message catalogs, bug [546333]

9 files changed, 594 insertions, 579 deletions

diff --git a/library/msgs/cs.msg b/library/msgs/cs.msg
index 37a21a1..23d8e0a 100644
--- a/library/msgs/cs.msg
+++ b/library/msgs/cs.msg
@@ -1,67 +1,69 @@
-::msgcat::mcset cs "Abort" "P\u0159eru\u0161it"
-::msgcat::mcset cs "About..." "O programu..."
-::msgcat::mcset cs "All Files" "V\u0161echny soubory"
-::msgcat::mcset cs "Application Error" "Chyba programu"
-::msgcat::mcset cs "Blue" "Modr\341"
-::msgcat::mcset cs "Cancel" "Zru\u0161it"
-::msgcat::mcset cs "Cannot change to the directory \"%1\$s\".\nPermission denied." "Nemohu zm\u011bnit atku\341ln\355 adres\341\u0159 na \"%1\$s\".\nP\u0159\355stup odm\355tnut."
-::msgcat::mcset cs "Choose Directory" "V\375b\u011br adres\341\u0159e"
-::msgcat::mcset cs "Clear" "Smazat"
-::msgcat::mcset cs "Color" "Barva"
-::msgcat::mcset cs "Console" "Konzole"
-::msgcat::mcset cs "Copy" "Kop\355rovat"
-::msgcat::mcset cs "Cut" "Vy\u0159\355znout"
-::msgcat::mcset cs "Delete" "Smazat"
-::msgcat::mcset cs "Details >>" "Detaily >>"
-::msgcat::mcset cs "Directory \"%1\$s\" does not exist." "Adres\341\u0159 \"%1\$s\" neexistuje."
-::msgcat::mcset cs "Directory:" "Adres\341\u0159:"
-::msgcat::mcset cs "Error: %1\$s" "Chyba: %1\$s"
-::msgcat::mcset cs "Exit" "Konec"
-::msgcat::mcset cs "File \"%1\$s\" already exists.\n\n" "Soubor \"%1\$s\" ji\u017e existuje.\n\n"
-::msgcat::mcset cs "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Soubor \"%1\$s\" ji\u017e existuje.\nChcete jej p\u0159epsat?"
-::msgcat::mcset cs "File \"%1\$s\" does not exist." "Soubor \"%1\$s\" neexistuje."
-::msgcat::mcset cs "File name:" "Jm\351no souboru:"
-::msgcat::mcset cs "File names:" "Jm\351na soubor\u016f:"
-::msgcat::mcset cs "Files of type:" "Typy soubor\u016f:"
-::msgcat::mcset cs "Files:" "Soubory:"
-::msgcat::mcset cs "Filter" "Filtr"
-::msgcat::mcset cs "Filter:" "Filtr:"
-::msgcat::mcset cs "Green" "Zelen\341"
-::msgcat::mcset cs "Hi"
-::msgcat::mcset cs "Hide Console" "Skr\375t konsolu"
-::msgcat::mcset cs "Ignore" "Ignorovat"
-::msgcat::mcset cs "Invalid file name \"%1\$s\"." "\u0160patn\351 jm\351no souboru \"%1\$s\"."
-::msgcat::mcset cs "Log Files" "Log soubory"
-::msgcat::mcset cs "No" "Ne"
-::msgcat::mcset cs "OK"
-::msgcat::mcset cs "Ok"
-::msgcat::mcset cs "Open" "Otev\u0159\355t"
-::msgcat::mcset cs "Open Multiple Files" "Otev\u0159\355t v\355ce soubor\u016f"
-::msgcat::mcset cs "Paste" "Vlo\u017eit"
-::msgcat::mcset cs "Quit" "Skon\u010dit"
-::msgcat::mcset cs "Red" "\u010cerven\341"
-::msgcat::mcset cs "Replace existing file?" "Nahradit st\341vaj\355c\355 soubor?"
-::msgcat::mcset cs "Retry" "Znovu"
-::msgcat::mcset cs "Save" "Ulo\u017eit"
-::msgcat::mcset cs "Save As" "Ulo\u017eit jako"
-::msgcat::mcset cs "Save To Log" "Ulo\u017eit do logu"
-::msgcat::mcset cs "Select Log File" "Vybrat log soubor"
-::msgcat::mcset cs "Select a file to source" "Vybrat soubor k nahr\341n\355"
-::msgcat::mcset cs "Selection:" "V\375b\u011br:"
-::msgcat::mcset cs "Skip Messages" "P\u0159esko\u010dit zpr\341vy"
-::msgcat::mcset cs "Source..." "Nahr\341t..."
-::msgcat::mcset cs "Tcl Scripts" "Tcl skripty"
-::msgcat::mcset cs "Tcl for Windows" "Tcl pro Windows"
-::msgcat::mcset cs "Text Files" "Textov\351 soubory"
-::msgcat::mcset cs "Yes" "Ano"
-::msgcat::mcset cs "abort" "p\u0159eru\u0161it"
-::msgcat::mcset cs "blue" "modr\341"
-::msgcat::mcset cs "cancel" "zru\u0161it"
-::msgcat::mcset cs "extension" "p\u0159\355pona"
-::msgcat::mcset cs "extensions" "p\u0159\355pony"
-::msgcat::mcset cs "green" "zelen\341"
-::msgcat::mcset cs "ignore" "ignorovat"
-::msgcat::mcset cs "ok"
-::msgcat::mcset cs "red" "\u010derven\341"
-::msgcat::mcset cs "retry" "znovu"
-::msgcat::mcset cs "yes" "ano"
+namespace eval ::tk {
+    ::msgcat::mcset cs "Abort" "P\u0159eru\u0161it"
+    ::msgcat::mcset cs "About..." "O programu..."
+    ::msgcat::mcset cs "All Files" "V\u0161echny soubory"
+    ::msgcat::mcset cs "Application Error" "Chyba programu"
+    ::msgcat::mcset cs "Blue" "Modr\341"
+    ::msgcat::mcset cs "Cancel" "Zru\u0161it"
+    ::msgcat::mcset cs "Cannot change to the directory \"%1\$s\".\nPermission denied." "Nemohu zm\u011bnit atku\341ln\355 adres\341\u0159 na \"%1\$s\".\nP\u0159\355stup odm\355tnut."
+    ::msgcat::mcset cs "Choose Directory" "V\375b\u011br adres\341\u0159e"
+    ::msgcat::mcset cs "Clear" "Smazat"
+    ::msgcat::mcset cs "Color" "Barva"
+    ::msgcat::mcset cs "Console" "Konzole"
+    ::msgcat::mcset cs "Copy" "Kop\355rovat"
+    ::msgcat::mcset cs "Cut" "Vy\u0159\355znout"
+    ::msgcat::mcset cs "Delete" "Smazat"
+    ::msgcat::mcset cs "Details >>" "Detaily >>"
+    ::msgcat::mcset cs "Directory \"%1\$s\" does not exist." "Adres\341\u0159 \"%1\$s\" neexistuje."
+    ::msgcat::mcset cs "Directory:" "Adres\341\u0159:"
+    ::msgcat::mcset cs "Error: %1\$s" "Chyba: %1\$s"
+    ::msgcat::mcset cs "Exit" "Konec"
+    ::msgcat::mcset cs "File \"%1\$s\" already exists.\n\n" "Soubor \"%1\$s\" ji\u017e existuje.\n\n"
+    ::msgcat::mcset cs "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Soubor \"%1\$s\" ji\u017e existuje.\nChcete jej p\u0159epsat?"
+    ::msgcat::mcset cs "File \"%1\$s\" does not exist." "Soubor \"%1\$s\" neexistuje."
+    ::msgcat::mcset cs "File name:" "Jm\351no souboru:"
+    ::msgcat::mcset cs "File names:" "Jm\351na soubor\u016f:"
+    ::msgcat::mcset cs "Files of type:" "Typy soubor\u016f:"
+    ::msgcat::mcset cs "Files:" "Soubory:"
+    ::msgcat::mcset cs "Filter" "Filtr"
+    ::msgcat::mcset cs "Filter:" "Filtr:"
+    ::msgcat::mcset cs "Green" "Zelen\341"
+    ::msgcat::mcset cs "Hi"
+    ::msgcat::mcset cs "Hide Console" "Skr\375t konsolu"
+    ::msgcat::mcset cs "Ignore" "Ignorovat"
+    ::msgcat::mcset cs "Invalid file name \"%1\$s\"." "\u0160patn\351 jm\351no souboru \"%1\$s\"."
+    ::msgcat::mcset cs "Log Files" "Log soubory"
+    ::msgcat::mcset cs "No" "Ne"
+    ::msgcat::mcset cs "OK"
+    ::msgcat::mcset cs "Ok"
+    ::msgcat::mcset cs "Open" "Otev\u0159\355t"
+    ::msgcat::mcset cs "Open Multiple Files" "Otev\u0159\355t v\355ce soubor\u016f"
+    ::msgcat::mcset cs "Paste" "Vlo\u017eit"
+    ::msgcat::mcset cs "Quit" "Skon\u010dit"
+    ::msgcat::mcset cs "Red" "\u010cerven\341"
+    ::msgcat::mcset cs "Replace existing file?" "Nahradit st\341vaj\355c\355 soubor?"
+    ::msgcat::mcset cs "Retry" "Znovu"
+    ::msgcat::mcset cs "Save" "Ulo\u017eit"
+    ::msgcat::mcset cs "Save As" "Ulo\u017eit jako"
+    ::msgcat::mcset cs "Save To Log" "Ulo\u017eit do logu"
+    ::msgcat::mcset cs "Select Log File" "Vybrat log soubor"
+    ::msgcat::mcset cs "Select a file to source" "Vybrat soubor k nahr\341n\355"
+    ::msgcat::mcset cs "Selection:" "V\375b\u011br:"
+    ::msgcat::mcset cs "Skip Messages" "P\u0159esko\u010dit zpr\341vy"
+    ::msgcat::mcset cs "Source..." "Nahr\341t..."
+    ::msgcat::mcset cs "Tcl Scripts" "Tcl skripty"
+    ::msgcat::mcset cs "Tcl for Windows" "Tcl pro Windows"
+    ::msgcat::mcset cs "Text Files" "Textov\351 soubory"
+    ::msgcat::mcset cs "Yes" "Ano"
+    ::msgcat::mcset cs "abort" "p\u0159eru\u0161it"
+    ::msgcat::mcset cs "blue" "modr\341"
+    ::msgcat::mcset cs "cancel" "zru\u0161it"
+    ::msgcat::mcset cs "extension" "p\u0159\355pona"
+    ::msgcat::mcset cs "extensions" "p\u0159\355pony"
+    ::msgcat::mcset cs "green" "zelen\341"
+    ::msgcat::mcset cs "ignore" "ignorovat"
+    ::msgcat::mcset cs "ok"
+    ::msgcat::mcset cs "red" "\u010derven\341"
+    ::msgcat::mcset cs "retry" "znovu"
+    ::msgcat::mcset cs "yes" "ano"
+}
\ No newline at end of file
diff --git a/library/msgs/de.msg b/library/msgs/de.msg
index 60e2ce7..5e10810 100644
--- a/library/msgs/de.msg
+++ b/library/msgs/de.msg
@@ -1,67 +1,69 @@
-::msgcat::mcset de "Abort" "Abbruch"
-::msgcat::mcset de "About..." "\u00dcber..."
-::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" "W\u00e4hle Verzeichnis"
-::msgcat::mcset de "Clear" "R\u00fccksetzen"
-::msgcat::mcset de "Color" "Farbe"
-::msgcat::mcset de "Console" "Konsole"
-::msgcat::mcset de "Copy" "Kopieren"
-::msgcat::mcset de "Cut" "Ausschneiden"
-::msgcat::mcset de "Delete" "L\u00f6schen"
-::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" "Ende"
-::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 \u00fcberschreiben ?"
-::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:" "Dateinamen:"
-::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" "Gr\u00fcn"
-::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\"." "Ung\u00fcltiger 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" "\u00d6ffnen"
-::msgcat::mcset de "Open Multiple Files"
-::msgcat::mcset de "Paste" "Einf\u00fcgen"
-::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 ausw\u00e4hlen"
-::msgcat::mcset de "Select a file to source" "Auszuf\u00fchrende Datei ausw\u00e4hlen"
-::msgcat::mcset de "Selection:" "Auswahl:"
-::msgcat::mcset de "Skip Messages" "Weitere Nachrichten \u00fcberspringen"
-::msgcat::mcset de "Source..." "Ausf\u00fchren..."
-::msgcat::mcset de "Tcl Scripts" "Tcl-Skripte"
-::msgcat::mcset de "Tcl for Windows" "Tcl f\u00fcr 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" "gr\u00fcn"
-::msgcat::mcset de "ignore" "ignorieren"
-::msgcat::mcset de "ok"
-::msgcat::mcset de "red" "rot"
-::msgcat::mcset de "retry" "wiederholen"
-::msgcat::mcset de "yes" "ja"
+namespace eval ::tk {
+    ::msgcat::mcset de "Abort" "Abbruch"
+    ::msgcat::mcset de "About..." "\u00dcber..."
+    ::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" "W\u00e4hle Verzeichnis"
+    ::msgcat::mcset de "Clear" "R\u00fccksetzen"
+    ::msgcat::mcset de "Color" "Farbe"
+    ::msgcat::mcset de "Console" "Konsole"
+    ::msgcat::mcset de "Copy" "Kopieren"
+    ::msgcat::mcset de "Cut" "Ausschneiden"
+    ::msgcat::mcset de "Delete" "L\u00f6schen"
+    ::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" "Ende"
+    ::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 \u00fcberschreiben ?"
+    ::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:" "Dateinamen:"
+    ::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" "Gr\u00fcn"
+    ::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\"." "Ung\u00fcltiger 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" "\u00d6ffnen"
+    ::msgcat::mcset de "Open Multiple Files"
+    ::msgcat::mcset de "Paste" "Einf\u00fcgen"
+    ::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 ausw\u00e4hlen"
+    ::msgcat::mcset de "Select a file to source" "Auszuf\u00fchrende Datei ausw\u00e4hlen"
+    ::msgcat::mcset de "Selection:" "Auswahl:"
+    ::msgcat::mcset de "Skip Messages" "Weitere Nachrichten \u00fcberspringen"
+    ::msgcat::mcset de "Source..." "Ausf\u00fchren..."
+    ::msgcat::mcset de "Tcl Scripts" "Tcl-Skripte"
+    ::msgcat::mcset de "Tcl for Windows" "Tcl f\u00fcr 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" "gr\u00fcn"
+    ::msgcat::mcset de "ignore" "ignorieren"
+    ::msgcat::mcset de "ok"
+    ::msgcat::mcset de "red" "rot"
+    ::msgcat::mcset de "retry" "wiederholen"
+    ::msgcat::mcset de "yes" "ja"
+}
\ No newline at end of file
diff --git a/library/msgs/el.msg b/library/msgs/el.msg
index f66a0ab..ad2fff7 100644
--- a/library/msgs/el.msg
+++ b/library/msgs/el.msg
@@ -2,82 +2,84 @@
 ## Please report any changes/suggestions to:
 ##    petasis@iit.demokritos.gr
 
-::msgcat::mcset el "Abort"              "\u03a4\u03b5\u03c1\u03bc\u03b1\u03c4\u03b9\u03c3\u03bc\u03cc\u03c2"
-::msgcat::mcset el "About..."           "\u03a3\u03c7\u03b5\u03c4\u03b9\u03ba\u03ac..."
-::msgcat::mcset el "All Files"          "\u038c\u03bb\u03b1 \u03c4\u03b1 \u0391\u03c1\u03c7\u03b5\u03af\u03b1"
-::msgcat::mcset el "Application Error"  "\u039b\u03ac\u03b8\u03bf\u03c2 \u0395\u03c6\u03b1\u03c1\u03bc\u03bf\u03b3\u03ae\u03c2"
-::msgcat::mcset el "Blue"               "\u039c\u03c0\u03bb\u03b5"
-::msgcat::mcset el "Cancel"             "\u0391\u03ba\u03cd\u03c1\u03c9\u03c3\u03b7"
-::msgcat::mcset el \
+namespace eval ::tk {
+    ::msgcat::mcset el "Abort"              "\u03a4\u03b5\u03c1\u03bc\u03b1\u03c4\u03b9\u03c3\u03bc\u03cc\u03c2"
+    ::msgcat::mcset el "About..."           "\u03a3\u03c7\u03b5\u03c4\u03b9\u03ba\u03ac..."
+    ::msgcat::mcset el "All Files"          "\u038c\u03bb\u03b1 \u03c4\u03b1 \u0391\u03c1\u03c7\u03b5\u03af\u03b1"
+    ::msgcat::mcset el "Application Error"  "\u039b\u03ac\u03b8\u03bf\u03c2 \u0395\u03c6\u03b1\u03c1\u03bc\u03bf\u03b3\u03ae\u03c2"
+    ::msgcat::mcset el "Blue"               "\u039c\u03c0\u03bb\u03b5"
+    ::msgcat::mcset el "Cancel"             "\u0391\u03ba\u03cd\u03c1\u03c9\u03c3\u03b7"
+    ::msgcat::mcset el \
 "Cannot change to the directory \"%1\$s\".\nPermission denied." \
 "\u0394\u03b5\u03bd \u03b5\u03af\u03bd\u03b1\u03b9 \u03b4\u03c5\u03bd\u03b1\u03c4\u03ae \u03b7 \u03b1\u03bb\u03bb\u03b1\u03b3\u03ae \u03ba\u03b1\u03c4\u03b1\u03bb\u03cc\u03b3\u03bf\u03c5 \u03c3\u03b5 \"%1\$s\".\n\u0397 \u03c0\u03c1\u03cc\u03c3\u03b2\u03b1\u03c3\u03b7 \u03b4\u03b5\u03bd \u03b5\u03c0\u03b9\u03c4\u03c1\u03ad\u03c0\u03b5\u03c4\u03b1\u03b9."
-::msgcat::mcset el "Choose Directory"   "\u0395\u03c0\u03b9\u03bb\u03bf\u03b3\u03ae \u039a\u03b1\u03c4\u03b1\u03bb\u03cc\u03b3\u03bf\u03c5"
-::msgcat::mcset el "Clear"              "\u039a\u03b1\u03b8\u03b1\u03c1\u03b9\u03c3\u03bc\u03cc\u03c2"
-::msgcat::mcset el "Color"              "\u03a7\u03c1\u03ce\u03bc\u03b1"
-::msgcat::mcset el "Console"            "\u039a\u03bf\u03bd\u03c3\u03cc\u03bb\u03b1"
-::msgcat::mcset el "Copy"               "\u0391\u03bd\u03c4\u03b9\u03b3\u03c1\u03b1\u03c6\u03ae"
-::msgcat::mcset el "Cut"                "\u0391\u03c0\u03bf\u03ba\u03bf\u03c0\u03ae"
-::msgcat::mcset el "Delete"             "\u0394\u03b9\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae"
-::msgcat::mcset el "Details >>"         "\u039b\u03b5\u03c0\u03c4\u03bf\u03bc\u03ad\u03c1\u03b5\u03b9\u03b5\u03c2 >>"
-::msgcat::mcset el "Directory \"%1\$s\" does not exist." \
+    ::msgcat::mcset el "Choose Directory"   "\u0395\u03c0\u03b9\u03bb\u03bf\u03b3\u03ae \u039a\u03b1\u03c4\u03b1\u03bb\u03cc\u03b3\u03bf\u03c5"
+    ::msgcat::mcset el "Clear"              "\u039a\u03b1\u03b8\u03b1\u03c1\u03b9\u03c3\u03bc\u03cc\u03c2"
+    ::msgcat::mcset el "Color"              "\u03a7\u03c1\u03ce\u03bc\u03b1"
+    ::msgcat::mcset el "Console"            "\u039a\u03bf\u03bd\u03c3\u03cc\u03bb\u03b1"
+    ::msgcat::mcset el "Copy"               "\u0391\u03bd\u03c4\u03b9\u03b3\u03c1\u03b1\u03c6\u03ae"
+    ::msgcat::mcset el "Cut"                "\u0391\u03c0\u03bf\u03ba\u03bf\u03c0\u03ae"
+    ::msgcat::mcset el "Delete"             "\u0394\u03b9\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae"
+    ::msgcat::mcset el "Details >>"         "\u039b\u03b5\u03c0\u03c4\u03bf\u03bc\u03ad\u03c1\u03b5\u03b9\u03b5\u03c2 >>"
+    ::msgcat::mcset el "Directory \"%1\$s\" does not exist." \
                                         "\u039f \u03ba\u03b1\u03c4\u03ac\u03bb\u03bf\u03b3\u03bf\u03c2 \"%1\$s\" \u03b4\u03b5\u03bd \u03c5\u03c0\u03ac\u03c1\u03c7\u03b5\u03b9."
-::msgcat::mcset el "Directory:"         "\u039a\u03b1\u03c4\u03ac\u03bb\u03bf\u03b3\u03bf\u03c2:"
-::msgcat::mcset el "Error: %1\$s"       "\u039b\u03ac\u03b8\u03bf\u03c2: %1\$s"
-::msgcat::mcset el "Exit"               "\u0388\u03be\u03bf\u03b4\u03bf\u03c2"
-::msgcat::mcset el \
+    ::msgcat::mcset el "Directory:"         "\u039a\u03b1\u03c4\u03ac\u03bb\u03bf\u03b3\u03bf\u03c2:"
+    ::msgcat::mcset el "Error: %1\$s"       "\u039b\u03ac\u03b8\u03bf\u03c2: %1\$s"
+    ::msgcat::mcset el "Exit"               "\u0388\u03be\u03bf\u03b4\u03bf\u03c2"
+    ::msgcat::mcset el \
                "File \"%1\$s\" already exists.\nDo you want to overwrite it?" \
                "\u03a4\u03bf \u03b1\u03c1\u03c7\u03b5\u03af\u03bf \"%1\$s\" \u03ae\u03b4\u03b7 \u03c5\u03c0\u03ac\u03c1\u03c7\u03b5\u03b9.\n\u0398\u03ad\u03bb\u03b5\u03c4\u03b5 \u03bd\u03b1 \u03b5\u03c0\u03b9\u03ba\u03b1\u03bb\u03c5\u03c6\u03b8\u03b5\u03af;"
-::msgcat::mcset el "File \"%1\$s\" already exists.\n\n" \
+    ::msgcat::mcset el "File \"%1\$s\" already exists.\n\n" \
                    "\u03a4\u03bf \u03b1\u03c1\u03c7\u03b5\u03af\u03bf \"%1\$s\" \u03ae\u03b4\u03b7 \u03c5\u03c0\u03ac\u03c1\u03c7\u03b5\u03b9.\n\n"
-::msgcat::mcset el "File \"%1\$s\" does not exist." \
+    ::msgcat::mcset el "File \"%1\$s\" does not exist." \
                    "\u03a4\u03bf \u03b1\u03c1\u03c7\u03b5\u03af\u03bf \"%1\$s\" \u03b4\u03b5\u03bd \u03c5\u03c0\u03ac\u03c1\u03c7\u03b5\u03b9."
-::msgcat::mcset el "File name:"         "\u038c\u03bd\u03bf\u03bc\u03b1 \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5:"
-::msgcat::mcset el "File names:"        "\u038c\u03bd\u03bf\u03bc\u03b1 \u03b1\u03c1\u03c7\u03b5\u03af\u03c9\u03bd:"
-::msgcat::mcset el "Files of type:"     "\u0391\u03c1\u03c7\u03b5\u03af\u03b1 \u03c4\u03bf\u03c5 \u03c4\u03cd\u03c0\u03bf\u03c5:"
-::msgcat::mcset el "Files:"             "\u0391\u03c1\u03c7\u03b5\u03af\u03b1:"
-::msgcat::mcset el "Filter"             "\u03a6\u03af\u03bb\u03c4\u03c1\u03bf"
-::msgcat::mcset el "Filter:"            "\u03a6\u03af\u03bb\u03c4\u03c1\u03bf:"
-::msgcat::mcset el "Green"              "\u03a0\u03c1\u03ac\u03c3\u03b9\u03bd\u03bf"
-::msgcat::mcset el "Hi"                 "\u0393\u03b5\u03b9\u03b1"
-::msgcat::mcset el "Hide Console"       "\u0391\u03c0\u03cc\u03ba\u03c1\u03c5\u03c8\u03b7 \u03ba\u03bf\u03bd\u03c3\u03cc\u03bb\u03b1\u03c2"
-::msgcat::mcset el "Ignore"             "\u0391\u03b3\u03bd\u03cc\u03b7\u03c3\u03b7"
-::msgcat::mcset el "Invalid file name \"%1\$s\"." \
+    ::msgcat::mcset el "File name:"         "\u038c\u03bd\u03bf\u03bc\u03b1 \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5:"
+    ::msgcat::mcset el "File names:"        "\u038c\u03bd\u03bf\u03bc\u03b1 \u03b1\u03c1\u03c7\u03b5\u03af\u03c9\u03bd:"
+    ::msgcat::mcset el "Files of type:"     "\u0391\u03c1\u03c7\u03b5\u03af\u03b1 \u03c4\u03bf\u03c5 \u03c4\u03cd\u03c0\u03bf\u03c5:"
+    ::msgcat::mcset el "Files:"             "\u0391\u03c1\u03c7\u03b5\u03af\u03b1:"
+    ::msgcat::mcset el "Filter"             "\u03a6\u03af\u03bb\u03c4\u03c1\u03bf"
+    ::msgcat::mcset el "Filter:"            "\u03a6\u03af\u03bb\u03c4\u03c1\u03bf:"
+    ::msgcat::mcset el "Green"              "\u03a0\u03c1\u03ac\u03c3\u03b9\u03bd\u03bf"
+    ::msgcat::mcset el "Hi"                 "\u0393\u03b5\u03b9\u03b1"
+    ::msgcat::mcset el "Hide Console"       "\u0391\u03c0\u03cc\u03ba\u03c1\u03c5\u03c8\u03b7 \u03ba\u03bf\u03bd\u03c3\u03cc\u03bb\u03b1\u03c2"
+    ::msgcat::mcset el "Ignore"             "\u0391\u03b3\u03bd\u03cc\u03b7\u03c3\u03b7"
+    ::msgcat::mcset el "Invalid file name \"%1\$s\"." \
                    "\u0386\u03ba\u03c5\u03c1\u03bf \u03cc\u03bd\u03bf\u03bc\u03b1 \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5 \"%1\$s\"."
-::msgcat::mcset el "Log Files"          "\u0391\u03c1\u03c7\u03b5\u03af\u03b1 \u039a\u03b1\u03c4\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae\u03c2"
-::msgcat::mcset el "No"                 "\u038c\u03c7\u03b9"
-::msgcat::mcset el "OK"                 "\u0395\u03bd\u03c4\u03ac\u03be\u03b5\u03b9"
-::msgcat::mcset el "Ok"                 "\u0395\u03bd\u03c4\u03ac\u03be\u03b5\u03b9"
-::msgcat::mcset el "Open"               "\u0386\u03bd\u03bf\u03b9\u03b3\u03bc\u03b1"
-::msgcat::mcset el "Open Multiple Files" \
+    ::msgcat::mcset el "Log Files"          "\u0391\u03c1\u03c7\u03b5\u03af\u03b1 \u039a\u03b1\u03c4\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae\u03c2"
+    ::msgcat::mcset el "No"                 "\u038c\u03c7\u03b9"
+    ::msgcat::mcset el "OK"                 "\u0395\u03bd\u03c4\u03ac\u03be\u03b5\u03b9"
+    ::msgcat::mcset el "Ok"                 "\u0395\u03bd\u03c4\u03ac\u03be\u03b5\u03b9"
+    ::msgcat::mcset el "Open"               "\u0386\u03bd\u03bf\u03b9\u03b3\u03bc\u03b1"
+    ::msgcat::mcset el "Open Multiple Files" \
                                         "\u0386\u03bd\u03bf\u03b9\u03b3\u03bc\u03b1 \u03c0\u03bf\u03bb\u03bb\u03b1\u03c0\u03bb\u03ce\u03bd \u03b1\u03c1\u03c7\u03b5\u03af\u03c9\u03bd"
-::msgcat::mcset el "Paste"              "\u0395\u03c0\u03b9\u03ba\u03cc\u03bb\u03bb\u03b7\u03c3\u03b7"
-::msgcat::mcset el "Quit"               "\u0388\u03be\u03bf\u03b4\u03bf\u03c2"
-::msgcat::mcset el "Red"                "\u039a\u03cc\u03ba\u03ba\u03b9\u03bd\u03bf"
-::msgcat::mcset el "Replace existing file?" \
+    ::msgcat::mcset el "Paste"              "\u0395\u03c0\u03b9\u03ba\u03cc\u03bb\u03bb\u03b7\u03c3\u03b7"
+    ::msgcat::mcset el "Quit"               "\u0388\u03be\u03bf\u03b4\u03bf\u03c2"
+    ::msgcat::mcset el "Red"                "\u039a\u03cc\u03ba\u03ba\u03b9\u03bd\u03bf"
+    ::msgcat::mcset el "Replace existing file?" \
                                         "\u0395\u03c0\u03b9\u03ba\u03ac\u03bb\u03c5\u03c8\u03b7 \u03c5\u03c0\u03ac\u03c1\u03c7\u03bf\u03bd\u03c4\u03bf\u03c2 \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5;"
-::msgcat::mcset el "Retry"              "\u03a0\u03c1\u03bf\u03c3\u03c0\u03ac\u03b8\u03b7\u03c3\u03b5 \u03be\u03b1\u03bd\u03ac"
-::msgcat::mcset el "Save"               "\u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7"
-::msgcat::mcset el "Save As"            "\u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7 \u03c3\u03b1\u03bd"
-::msgcat::mcset el "Save To Log"        "\u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7 \u03c3\u03c4\u03bf \u03b1\u03c1\u03c7\u03b5\u03af\u03bf \u03ba\u03b1\u03c4\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae\u03c2"
-::msgcat::mcset el "Select Log File"    "\u0395\u03c0\u03b9\u03bb\u03bf\u03b3\u03ae \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5 \u03ba\u03b1\u03c4\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae\u03c2"
-::msgcat::mcset el "Select a file to source" \
+    ::msgcat::mcset el "Retry"              "\u03a0\u03c1\u03bf\u03c3\u03c0\u03ac\u03b8\u03b7\u03c3\u03b5 \u03be\u03b1\u03bd\u03ac"
+    ::msgcat::mcset el "Save"               "\u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7"
+    ::msgcat::mcset el "Save As"            "\u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7 \u03c3\u03b1\u03bd"
+    ::msgcat::mcset el "Save To Log"        "\u0391\u03c0\u03bf\u03b8\u03ae\u03ba\u03b5\u03c5\u03c3\u03b7 \u03c3\u03c4\u03bf \u03b1\u03c1\u03c7\u03b5\u03af\u03bf \u03ba\u03b1\u03c4\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae\u03c2"
+    ::msgcat::mcset el "Select Log File"    "\u0395\u03c0\u03b9\u03bb\u03bf\u03b3\u03ae \u03b1\u03c1\u03c7\u03b5\u03af\u03bf\u03c5 \u03ba\u03b1\u03c4\u03b1\u03b3\u03c1\u03b1\u03c6\u03ae\u03c2"
+    ::msgcat::mcset el "Select a file to source" \
                                         "\u0395\u03c0\u03b9\u03bb\u03ad\u03be\u03c4\u03b5 \u03b1\u03c1\u03c7\u03b5\u03af\u03bf \u03b3\u03b9\u03b1 \u03b5\u03ba\u03c4\u03ad\u03bb\u03b5\u03c3\u03b7"
-::msgcat::mcset el "Selection:"         "\u0395\u03c0\u03b9\u03bb\u03bf\u03b3\u03ae:"
-::msgcat::mcset el "Skip Messages"      "\u0391\u03c0\u03bf\u03c6\u03c5\u03b3\u03ae \u03bc\u03c5\u03bd\u03b7\u03bc\u03ac\u03c4\u03c9\u03bd"
-::msgcat::mcset el "Source..."          "\u0395\u03ba\u03c4\u03ad\u03bb\u03b5\u03c3\u03b7..."
-::msgcat::mcset el "Tcl Scripts"        "Tcl Scripts"
-::msgcat::mcset el "Tcl for Windows"    "Tcl \u03b3\u03b9\u03b1 Windows"
-::msgcat::mcset el "Text Files"         "\u0391\u03c1\u03c7\u03b5\u03af\u03b1 \u039a\u03b5\u03b9\u03bc\u03ad\u03bd\u03bf\u03c5"
-::msgcat::mcset el "Yes"                "\u039d\u03b1\u03b9"
-::msgcat::mcset el "abort"              "\u03c4\u03b5\u03c1\u03bc\u03b1\u03c4\u03b9\u03c3\u03bc\u03cc\u03c2"
-::msgcat::mcset el "blue"               "\u03bc\u03c0\u03bb\u03b5"
-::msgcat::mcset el "cancel"             "\u03b1\u03ba\u03cd\u03c1\u03c9\u03c3\u03b7"
-::msgcat::mcset el "extension"          "\u03b5\u03c0\u03ad\u03ba\u03c4\u03b1\u03c3\u03b7"
-::msgcat::mcset el "extensions"         "\u03b5\u03c0\u03b5\u03ba\u03c4\u03ac\u03c3\u03b5\u03b9\u03c2"
-::msgcat::mcset el "green"              "\u03c0\u03c1\u03ac\u03c3\u03b9\u03bd\u03bf"
-::msgcat::mcset el "ignore"             "\u03b1\u03b3\u03bd\u03cc\u03b7\u03c3\u03b7"
-::msgcat::mcset el "ok"                 "\u03b5\u03bd\u03c4\u03ac\u03be\u03b5\u03b9"
-::msgcat::mcset el "red"                "\u03ba\u03cc\u03ba\u03ba\u03b9\u03bd\u03bf"
-::msgcat::mcset el "retry"              "\u03c0\u03c1\u03bf\u03c3\u03c0\u03ac\u03b8\u03b7\u03c3\u03b5 \u03be\u03b1\u03bd\u03ac"
-::msgcat::mcset el "yes"                "\u03bd\u03b1\u03b9"
+    ::msgcat::mcset el "Selection:"         "\u0395\u03c0\u03b9\u03bb\u03bf\u03b3\u03ae:"
+    ::msgcat::mcset el "Skip Messages"      "\u0391\u03c0\u03bf\u03c6\u03c5\u03b3\u03ae \u03bc\u03c5\u03bd\u03b7\u03bc\u03ac\u03c4\u03c9\u03bd"
+    ::msgcat::mcset el "Source..."          "\u0395\u03ba\u03c4\u03ad\u03bb\u03b5\u03c3\u03b7..."
+    ::msgcat::mcset el "Tcl Scripts"        "Tcl Scripts"
+    ::msgcat::mcset el "Tcl for Windows"    "Tcl \u03b3\u03b9\u03b1 Windows"
+    ::msgcat::mcset el "Text Files"         "\u0391\u03c1\u03c7\u03b5\u03af\u03b1 \u039a\u03b5\u03b9\u03bc\u03ad\u03bd\u03bf\u03c5"
+    ::msgcat::mcset el "Yes"                "\u039d\u03b1\u03b9"
+    ::msgcat::mcset el "abort"              "\u03c4\u03b5\u03c1\u03bc\u03b1\u03c4\u03b9\u03c3\u03bc\u03cc\u03c2"
+    ::msgcat::mcset el "blue"               "\u03bc\u03c0\u03bb\u03b5"
+    ::msgcat::mcset el "cancel"             "\u03b1\u03ba\u03cd\u03c1\u03c9\u03c3\u03b7"
+    ::msgcat::mcset el "extension"          "\u03b5\u03c0\u03ad\u03ba\u03c4\u03b1\u03c3\u03b7"
+    ::msgcat::mcset el "extensions"         "\u03b5\u03c0\u03b5\u03ba\u03c4\u03ac\u03c3\u03b5\u03b9\u03c2"
+    ::msgcat::mcset el "green"              "\u03c0\u03c1\u03ac\u03c3\u03b9\u03bd\u03bf"
+    ::msgcat::mcset el "ignore"             "\u03b1\u03b3\u03bd\u03cc\u03b7\u03c3\u03b7"
+    ::msgcat::mcset el "ok"                 "\u03b5\u03bd\u03c4\u03ac\u03be\u03b5\u03b9"
+    ::msgcat::mcset el "red"                "\u03ba\u03cc\u03ba\u03ba\u03b9\u03bd\u03bf"
+    ::msgcat::mcset el "retry"              "\u03c0\u03c1\u03bf\u03c3\u03c0\u03ac\u03b8\u03b7\u03c3\u03b5 \u03be\u03b1\u03bd\u03ac"
+    ::msgcat::mcset el "yes"                "\u03bd\u03b1\u03b9"
+}
 
diff --git a/library/msgs/en.msg b/library/msgs/en.msg
index d49d543..3a64932 100644
--- a/library/msgs/en.msg
+++ b/library/msgs/en.msg
@@ -1,67 +1,69 @@
-::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"
+namespace eval ::tk {
+    ::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"
+}
\ No newline at end of file
diff --git a/library/msgs/es.msg b/library/msgs/es.msg
index c3b3d22..140b40d 100644
--- a/library/msgs/es.msg
+++ b/library/msgs/es.msg
@@ -1,67 +1,69 @@
-::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" "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 >>" "Detalles >>"
-::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" "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:" "Nombres de archivo:"
-::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" "No"
-::msgcat::mcset es "OK" "OK"
-::msgcat::mcset es "Ok" "Ok"
-::msgcat::mcset es "Open" "Abrir"
-::msgcat::mcset es "Open Multiple Files" "Abrir m\u00faltiples archivos"
-::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" "S\u00ed" 
-::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" "ok"
-::msgcat::mcset es "red" "rojo"
-::msgcat::mcset es "retry" "reintentar"
-::msgcat::mcset es "yes" "s\u00ed"
+namespace eval ::tk {
+    ::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" "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 >>" "Detalles >>"
+    ::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" "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:" "Nombres de archivo:"
+    ::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" "No"
+    ::msgcat::mcset es "OK" "OK"
+    ::msgcat::mcset es "Ok" "Ok"
+    ::msgcat::mcset es "Open" "Abrir"
+    ::msgcat::mcset es "Open Multiple Files" "Abrir m\u00faltiples archivos"
+    ::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" "S\u00ed" 
+    ::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" "ok"
+    ::msgcat::mcset es "red" "rojo"
+    ::msgcat::mcset es "retry" "reintentar"
+    ::msgcat::mcset es "yes" "s\u00ed"
+}
diff --git a/library/msgs/fr.msg b/library/msgs/fr.msg
index d0548aa..b885cd4 100644
--- a/library/msgs/fr.msg
+++ b/library/msgs/fr.msg
@@ -1,67 +1,69 @@
-::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"
+namespace eval ::tk {
+    ::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"
+}    
\ No newline at end of file
diff --git a/library/msgs/it.msg b/library/msgs/it.msg
index 756213e..189448f 100644
--- a/library/msgs/it.msg
+++ b/library/msgs/it.msg
@@ -1,68 +1,69 @@
-::msgcat::mcset it "Abort" "Interrompi"
-::msgcat::mcset it "About..." "Informazioni ..."
-::msgcat::mcset it "All Files" "Tutti i file"
-::msgcat::mcset it "Application Error" "Errore dell' applicazione"
-::msgcat::mcset it "Blue" "Blu"
-::msgcat::mcset it "Cancel" "Annulla"
-::msgcat::mcset it "Cannot change to the directory \"%1\$s\".\nPermission denied." "Impossibile accedere alla directory \"%1\$s\".\nPermesso negato."
-::msgcat::mcset it "Choose Directory" "Scegli directory"
-::msgcat::mcset it "Clear" "Azzera"
-::msgcat::mcset it "Color" "Colore"
-::msgcat::mcset it "Console"
-::msgcat::mcset it "Copy" "Copia"
-::msgcat::mcset it "Cut" "Taglia"
-::msgcat::mcset it "Delete" "Incolla"
-::msgcat::mcset it "Details >>" "Dettagli >>"
-::msgcat::mcset it "Directory \"%1\$s\" does not exist." "La directory \"%1\$s\" non esiste."
-::msgcat::mcset it "Directory:"
-::msgcat::mcset it "Error: %1\$s" "Errore: %1\$s"
-::msgcat::mcset it "Exit" "Esci"
-::msgcat::mcset it "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Il file \"%1\$s\" esiste gi\u00e0.\nVuoi sovrascriverlo?"
-::msgcat::mcset it "File \"%1\$s\" already exists.\n\n" "Il file \"%1\$s\" esiste gi\u00e0.\n\n"
-::msgcat::mcset it "File \"%1\$s\" does not exist." "Il file \"%1\$s\" non esiste."
-::msgcat::mcset it "File name:" "Nome del file:"
-::msgcat::mcset it "File names:" "Nomi dei file:"
-::msgcat::mcset it "Files of type:" "File di tipo:"
-::msgcat::mcset it "Files:" "File:"
-::msgcat::mcset it "Filter" "Filtro"
-::msgcat::mcset it "Filter:" "Filtro:"
-::msgcat::mcset it "Green" "Verde"
-::msgcat::mcset it "Hi" "Salve"
-::msgcat::mcset it "Hide Console" "Nascondi la console"
-::msgcat::mcset it "Ignore" "Ignora"
-::msgcat::mcset it "Invalid file name \"%1\$s\"." "Nome di file non valido \"%1\$s\"."
-::msgcat::mcset it "Log Files" "File di log"
-::msgcat::mcset it "No"
-::msgcat::mcset it "OK"
-::msgcat::mcset it "Ok"
-::msgcat::mcset it "Open" "Apri"
-::msgcat::mcset it "Open Multiple Files" "Apri file multipli"
-::msgcat::mcset it "Paste" "Incolla"
-::msgcat::mcset it "Quit" "Esci"
-::msgcat::mcset it "Red" "Rosso"
-::msgcat::mcset it "Replace existing file?" "Sostituisci il file esistente?"
-::msgcat::mcset it "Retry" "Riprova"
-::msgcat::mcset it "Save" "Salva"
-::msgcat::mcset it "Save As" "Salva come"
-::msgcat::mcset it "Save To Log" "Salva il log"
-::msgcat::mcset it "Select Log File" "Scegli un file di log"
-::msgcat::mcset it "Select a file to source" "Scegli un file da eseguire"
-::msgcat::mcset it "Selection:" "Selezione:"
-::msgcat::mcset it "Skip Messages" "Salta i messaggi"
-::msgcat::mcset it "Source..." "Esegui..."
-::msgcat::mcset it "Tcl Scripts" "Scripts Tcl"
-::msgcat::mcset it "Tcl for Windows" "Tcl per Windows"
-::msgcat::mcset it "Text Files" "File di testo"
-::msgcat::mcset it "Yes" "Si"
-::msgcat::mcset it "abort" "interrompi"
-::msgcat::mcset it "blue" "blu"
-::msgcat::mcset it "cancel" "annulla"
-::msgcat::mcset it "extension" "estensione"
-::msgcat::mcset it "extensions" "estensioni"
-::msgcat::mcset it "green" "verde"
-::msgcat::mcset it "ignore" "ignora"
-::msgcat::mcset it "ok"
-::msgcat::mcset it "red" "rosso"
-::msgcat::mcset it "retry" "riprova"
-::msgcat::mcset it "yes" "si"
-
+namespace eval ::tk {
+    ::msgcat::mcset it "Abort" "Interrompi"
+    ::msgcat::mcset it "About..." "Informazioni ..."
+    ::msgcat::mcset it "All Files" "Tutti i file"
+    ::msgcat::mcset it "Application Error" "Errore dell' applicazione"
+    ::msgcat::mcset it "Blue" "Blu"
+    ::msgcat::mcset it "Cancel" "Annulla"
+    ::msgcat::mcset it "Cannot change to the directory \"%1\$s\".\nPermission denied." "Impossibile accedere alla directory \"%1\$s\".\nPermesso negato."
+    ::msgcat::mcset it "Choose Directory" "Scegli directory"
+    ::msgcat::mcset it "Clear" "Azzera"
+    ::msgcat::mcset it "Color" "Colore"
+    ::msgcat::mcset it "Console"
+    ::msgcat::mcset it "Copy" "Copia"
+    ::msgcat::mcset it "Cut" "Taglia"
+    ::msgcat::mcset it "Delete" "Incolla"
+    ::msgcat::mcset it "Details >>" "Dettagli >>"
+    ::msgcat::mcset it "Directory \"%1\$s\" does not exist." "La directory \"%1\$s\" non esiste."
+    ::msgcat::mcset it "Directory:"
+    ::msgcat::mcset it "Error: %1\$s" "Errore: %1\$s"
+    ::msgcat::mcset it "Exit" "Esci"
+    ::msgcat::mcset it "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Il file \"%1\$s\" esiste gi\u00e0.\nVuoi sovrascriverlo?"
+    ::msgcat::mcset it "File \"%1\$s\" already exists.\n\n" "Il file \"%1\$s\" esiste gi\u00e0.\n\n"
+    ::msgcat::mcset it "File \"%1\$s\" does not exist." "Il file \"%1\$s\" non esiste."
+    ::msgcat::mcset it "File name:" "Nome del file:"
+    ::msgcat::mcset it "File names:" "Nomi dei file:"
+    ::msgcat::mcset it "Files of type:" "File di tipo:"
+    ::msgcat::mcset it "Files:" "File:"
+    ::msgcat::mcset it "Filter" "Filtro"
+    ::msgcat::mcset it "Filter:" "Filtro:"
+    ::msgcat::mcset it "Green" "Verde"
+    ::msgcat::mcset it "Hi" "Salve"
+    ::msgcat::mcset it "Hide Console" "Nascondi la console"
+    ::msgcat::mcset it "Ignore" "Ignora"
+    ::msgcat::mcset it "Invalid file name \"%1\$s\"." "Nome di file non valido \"%1\$s\"."
+    ::msgcat::mcset it "Log Files" "File di log"
+    ::msgcat::mcset it "No"
+    ::msgcat::mcset it "OK"
+    ::msgcat::mcset it "Ok"
+    ::msgcat::mcset it "Open" "Apri"
+    ::msgcat::mcset it "Open Multiple Files" "Apri file multipli"
+    ::msgcat::mcset it "Paste" "Incolla"
+    ::msgcat::mcset it "Quit" "Esci"
+    ::msgcat::mcset it "Red" "Rosso"
+    ::msgcat::mcset it "Replace existing file?" "Sostituisci il file esistente?"
+    ::msgcat::mcset it "Retry" "Riprova"
+    ::msgcat::mcset it "Save" "Salva"
+    ::msgcat::mcset it "Save As" "Salva come"
+    ::msgcat::mcset it "Save To Log" "Salva il log"
+    ::msgcat::mcset it "Select Log File" "Scegli un file di log"
+    ::msgcat::mcset it "Select a file to source" "Scegli un file da eseguire"
+    ::msgcat::mcset it "Selection:" "Selezione:"
+    ::msgcat::mcset it "Skip Messages" "Salta i messaggi"
+    ::msgcat::mcset it "Source..." "Esegui..."
+    ::msgcat::mcset it "Tcl Scripts" "Scripts Tcl"
+    ::msgcat::mcset it "Tcl for Windows" "Tcl per Windows"
+    ::msgcat::mcset it "Text Files" "File di testo"
+    ::msgcat::mcset it "Yes" "Si"
+    ::msgcat::mcset it "abort" "interrompi"
+    ::msgcat::mcset it "blue" "blu"
+    ::msgcat::mcset it "cancel" "annulla"
+    ::msgcat::mcset it "extension" "estensione"
+    ::msgcat::mcset it "extensions" "estensioni"
+    ::msgcat::mcset it "green" "verde"
+    ::msgcat::mcset it "ignore" "ignora"
+    ::msgcat::mcset it "ok"
+    ::msgcat::mcset it "red" "rosso"
+    ::msgcat::mcset it "retry" "riprova"
+    ::msgcat::mcset it "yes" "si"
+}
diff --git a/library/msgs/nl.msg b/library/msgs/nl.msg
index 019aacc..63f4746 100644
--- a/library/msgs/nl.msg
+++ b/library/msgs/nl.msg
@@ -1,103 +1,105 @@
-::msgcat::mcset nl "\"%1\$s\" must be an absolute pathname" "\"%1\$s\" moet een absolute pad-naam zijn"
-::msgcat::mcset nl "%1\$s is not a toplevel window" "%1\$s is geen toplevel window"
-::msgcat::mcset nl ", or" ", of"
-::msgcat::mcset nl "-default, -icon, -message, -parent, -title, or -type" "-default, -icon, -message, -parent, -title, of -type"
-::msgcat::mcset nl "-initialdir, -mustexist, -parent, or -title" "-initialdir, -mustexist, -parent, of -title"
-::msgcat::mcset nl "Abort" "Afbreken"
-::msgcat::mcset nl "About..." "Over..."
-::msgcat::mcset nl "All Files" "Alle Bestanden"
-::msgcat::mcset nl "Application Error" "Toepassingsfout"
-::msgcat::mcset nl "Blue" "Blauw"
-::msgcat::mcset nl "Cancel" "Annuleren"
-::msgcat::mcset nl "Cannot change to the directory \"%1\$s\".\nPermission denied." "Kan niet naar map \"%1\$s\" gaan.\nU heeft geen toestemming hiervoor."
-::msgcat::mcset nl "Choose Directory" "Kies map"
-::msgcat::mcset nl "Clear" "Wissen"
-::msgcat::mcset nl "Clear entry, Press OK; Enter %1\$s, press OK" "Wis veld, Druk op OK; Geef %1\$s in, druk op OK"
-::msgcat::mcset nl "Color" "Kleur"
-::msgcat::mcset nl "Console"
-::msgcat::mcset nl "Copy" "Copi\u00ebren"
-::msgcat::mcset nl "Cut" "Knippen"
-::msgcat::mcset nl "Delete" "Wissen"
-::msgcat::mcset nl "Details"
-::msgcat::mcset nl "Details >>"
-::msgcat::mcset nl "Directory \"%1\$s\" does not exist." "Map \"%1\$s\" bestaat niet."
-::msgcat::mcset nl "Directory:" "Map:"
-::msgcat::mcset nl "Enter \"%1\$s\", press OK" "Toets \"%1\$s\", druk op OK"
-::msgcat::mcset nl "Enter \"%1\$s\", press OK, enter \"%2\$s\", press OK" "Toets \"%1\$s\", druk op OK, toets \"%2\$s\", druk op OK"
-::msgcat::mcset nl "Error: %1\$s" "Fout: %1\$s"
-::msgcat::mcset nl "Exit" "Be\u00ebindigen"
-::msgcat::mcset nl "File \"%1\$s\" already exists.\n\n" "Bestand \"%1\$s\" bestaat al.\n\n"
-::msgcat::mcset nl "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Bestand \"%1\$s\" bestaat al.\nWilt u het overschrijven?"
-::msgcat::mcset nl "File \"%1\$s\" does not exist." "Bestand \"%1\$s\" bestaat niet."
-::msgcat::mcset nl "File name:" "Bestandsnaam:"
-::msgcat::mcset nl "File names:" "Bestandsnamen:"
-::msgcat::mcset nl "Files of type:" "Bestanden van het type:"
-::msgcat::mcset nl "Files:" "Bestanden:"
-::msgcat::mcset nl "Filter"
-::msgcat::mcset nl "Filter:"
-::msgcat::mcset nl "Green" "Groen"
-::msgcat::mcset nl "Hi" "H\u00e9"
-::msgcat::mcset nl "Hide Console" "Verberg Console"
-::msgcat::mcset nl "Ignore"
-::msgcat::mcset nl "Invalid file name \"%1\$s\"." "Ongeldige bestandsnaam \"%1\$s\"."
-::msgcat::mcset nl "Log Files" "Log Bestanden"
-::msgcat::mcset nl "No" "Nee"
-::msgcat::mcset nl "OK"
-::msgcat::mcset nl "Ok"
-::msgcat::mcset nl "Open" "Openen"
-::msgcat::mcset nl "Open Multiple Files" "Open meerdere bestanden"
-::msgcat::mcset nl "Paste" "Plakken"
-::msgcat::mcset nl "Please press %1\$s" "Druk op %1\$s, A.U.B."
-::msgcat::mcset nl "Please press ok" "Druk op ok, A.U.B."
-::msgcat::mcset nl "Press Cancel" "Druk op Annuleren"
-::msgcat::mcset nl "Press Ok" "Druk op Ok"
-::msgcat::mcset nl "Quit" "Stoppen"
-::msgcat::mcset nl "Red" "Rood"
-::msgcat::mcset nl "Replace existing file?" "Vervang bestaand bestand?"
-::msgcat::mcset nl "Retry" "Opnieuw"
-::msgcat::mcset nl "Save" "Opslaan"
-::msgcat::mcset nl "Save As" "Opslaan als"
-::msgcat::mcset nl "Save To Log" "Opslaan naar Log"
-::msgcat::mcset nl "Select Log File" "Selecteer Log bestand"
-::msgcat::mcset nl "Select a file to source" "Selecteer bronbestand"
-::msgcat::mcset nl "Selection:" "Selectie:"
-::msgcat::mcset nl "Skip Messages" "Berichten overslaan"
-::msgcat::mcset nl "Source..." "Bron..."
-::msgcat::mcset nl "Tcl Scripts"
-::msgcat::mcset nl "Tcl for Windows" "Tcl voor Windows"
-::msgcat::mcset nl "Text Files" "Tekst Bestanden"
-::msgcat::mcset nl "Yes" "Ja"
-::msgcat::mcset nl "abort" "afbreken"
-::msgcat::mcset nl "abort, retry, ignore, ok, cancel, no, or yes" "afbreken, opnieuw, negeren, ok, annuleren, nee, of ja"
-::msgcat::mcset nl "abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel" "abortretryignore, ok, okcancel, retrycancel, yesno, of yesnocancel"
-::msgcat::mcset nl "bad %1\$s value \"%2\$s\": must be %3\$s" "foutieve %1\$s waarde \"%2\$s\": moet zijn %3\$s"
-::msgcat::mcset nl "bad file type \"%1\$s\", should be" "foutief bestandstype \"%1\$s\", moet zijn"
-::msgcat::mcset nl "bad option \"%1\$s\": should be %2\$s" "foutieve optie \"%1\$s\": moet zijn %2\$s"
-::msgcat::mcset nl "bad window path name \"%1\$s\"" "foutieve window pad naam \"%1\$s\""
-::msgcat::mcset nl "blue" "blauw"
-::msgcat::mcset nl "can't post %1\$s:  it isn't a descendant of %2\$s (this is a new requirement in Tk versions 3.0 and later)" "kan %1\$s niet verzenden:  het is geen afstammeling van %2\$s (dit is een niewe verplichting in Tk versies 3.0 en later)"
-::msgcat::mcset nl "cancel" "annuleren"
-::msgcat::mcset nl "default button index greater than number of buttons specified for tk_dialog" "default knop index is groter dan het aantal knoppen beschikbaar voor tk_dialog"
-::msgcat::mcset nl "display name to use (current one otherwise)" "te gebruiken schermnaam (anders huidige scherm)"
-::msgcat::mcset nl "error, info, question, or warning" "error, info, question, of warning"
-::msgcat::mcset nl "extension"
-::msgcat::mcset nl "extensions"
-::msgcat::mcset nl "focus group \"%1\$s\" doesn't exist" "focus groep \"%1\$s\" bestaat niet"
-::msgcat::mcset nl "green" "groen"
-::msgcat::mcset nl "history event %1\$s"
-::msgcat::mcset nl "ignore" "negeren"
-::msgcat::mcset nl "invalid default button \"%1\$s\"" "ongeldige default knop \"%1\$s\""
-::msgcat::mcset nl "macType"
-::msgcat::mcset nl "macTypes"
-::msgcat::mcset nl "must specify a background color" "een achtergrondkleur is verplicht"
-::msgcat::mcset nl "name of the slave interpreter" "naam van de slaaf interpreter"
-::msgcat::mcset nl "no winfo screen . nor env(DISPLAY)" "geen winfo scherm . noch env(DISPLAY)"
-::msgcat::mcset nl "ok"
-::msgcat::mcset nl "red" "rood"
-::msgcat::mcset nl "retry" "opnieuw"
-::msgcat::mcset nl "should contain 5 or 4 elements" "moet 4 of 5 elementen bevatten"
-::msgcat::mcset nl "spec"
-::msgcat::mcset nl "tk_chooseDirectory command" "tk_chooseDirectory commando"
-::msgcat::mcset nl "tk_chooseDirectory command, cancel gives null" "tk_chooseDirectory commando, annuleren geeft lege waarde"
-::msgcat::mcset nl "tk_chooseDirectory command, initialdir" "tk_chooseDirectory commando, initi\u00eble map"
-::msgcat::mcset nl "yes" "ja"
+namespace eval ::tk {
+    ::msgcat::mcset nl "\"%1\$s\" must be an absolute pathname" "\"%1\$s\" moet een absolute pad-naam zijn"
+    ::msgcat::mcset nl "%1\$s is not a toplevel window" "%1\$s is geen toplevel window"
+    ::msgcat::mcset nl ", or" ", of"
+    ::msgcat::mcset nl "-default, -icon, -message, -parent, -title, or -type" "-default, -icon, -message, -parent, -title, of -type"
+    ::msgcat::mcset nl "-initialdir, -mustexist, -parent, or -title" "-initialdir, -mustexist, -parent, of -title"
+    ::msgcat::mcset nl "Abort" "Afbreken"
+    ::msgcat::mcset nl "About..." "Over..."
+    ::msgcat::mcset nl "All Files" "Alle Bestanden"
+    ::msgcat::mcset nl "Application Error" "Toepassingsfout"
+    ::msgcat::mcset nl "Blue" "Blauw"
+    ::msgcat::mcset nl "Cancel" "Annuleren"
+    ::msgcat::mcset nl "Cannot change to the directory \"%1\$s\".\nPermission denied." "Kan niet naar map \"%1\$s\" gaan.\nU heeft geen toestemming hiervoor."
+    ::msgcat::mcset nl "Choose Directory" "Kies map"
+    ::msgcat::mcset nl "Clear" "Wissen"
+    ::msgcat::mcset nl "Clear entry, Press OK; Enter %1\$s, press OK" "Wis veld, Druk op OK; Geef %1\$s in, druk op OK"
+    ::msgcat::mcset nl "Color" "Kleur"
+    ::msgcat::mcset nl "Console"
+    ::msgcat::mcset nl "Copy" "Copi\u00ebren"
+    ::msgcat::mcset nl "Cut" "Knippen"
+    ::msgcat::mcset nl "Delete" "Wissen"
+    ::msgcat::mcset nl "Details"
+    ::msgcat::mcset nl "Details >>"
+    ::msgcat::mcset nl "Directory \"%1\$s\" does not exist." "Map \"%1\$s\" bestaat niet."
+    ::msgcat::mcset nl "Directory:" "Map:"
+    ::msgcat::mcset nl "Enter \"%1\$s\", press OK" "Toets \"%1\$s\", druk op OK"
+    ::msgcat::mcset nl "Enter \"%1\$s\", press OK, enter \"%2\$s\", press OK" "Toets \"%1\$s\", druk op OK, toets \"%2\$s\", druk op OK"
+    ::msgcat::mcset nl "Error: %1\$s" "Fout: %1\$s"
+    ::msgcat::mcset nl "Exit" "Be\u00ebindigen"
+    ::msgcat::mcset nl "File \"%1\$s\" already exists.\n\n" "Bestand \"%1\$s\" bestaat al.\n\n"
+    ::msgcat::mcset nl "File \"%1\$s\" already exists.\nDo you want to overwrite it?" "Bestand \"%1\$s\" bestaat al.\nWilt u het overschrijven?"
+    ::msgcat::mcset nl "File \"%1\$s\" does not exist." "Bestand \"%1\$s\" bestaat niet."
+    ::msgcat::mcset nl "File name:" "Bestandsnaam:"
+    ::msgcat::mcset nl "File names:" "Bestandsnamen:"
+    ::msgcat::mcset nl "Files of type:" "Bestanden van het type:"
+    ::msgcat::mcset nl "Files:" "Bestanden:"
+    ::msgcat::mcset nl "Filter"
+    ::msgcat::mcset nl "Filter:"
+    ::msgcat::mcset nl "Green" "Groen"
+    ::msgcat::mcset nl "Hi" "H\u00e9"
+    ::msgcat::mcset nl "Hide Console" "Verberg Console"
+    ::msgcat::mcset nl "Ignore"
+    ::msgcat::mcset nl "Invalid file name \"%1\$s\"." "Ongeldige bestandsnaam \"%1\$s\"."
+    ::msgcat::mcset nl "Log Files" "Log Bestanden"
+    ::msgcat::mcset nl "No" "Nee"
+    ::msgcat::mcset nl "OK"
+    ::msgcat::mcset nl "Ok"
+    ::msgcat::mcset nl "Open" "Openen"
+    ::msgcat::mcset nl "Open Multiple Files" "Open meerdere bestanden"
+    ::msgcat::mcset nl "Paste" "Plakken"
+    ::msgcat::mcset nl "Please press %1\$s" "Druk op %1\$s, A.U.B."
+    ::msgcat::mcset nl "Please press ok" "Druk op ok, A.U.B."
+    ::msgcat::mcset nl "Press Cancel" "Druk op Annuleren"
+    ::msgcat::mcset nl "Press Ok" "Druk op Ok"
+    ::msgcat::mcset nl "Quit" "Stoppen"
+    ::msgcat::mcset nl "Red" "Rood"
+    ::msgcat::mcset nl "Replace existing file?" "Vervang bestaand bestand?"
+    ::msgcat::mcset nl "Retry" "Opnieuw"
+    ::msgcat::mcset nl "Save" "Opslaan"
+    ::msgcat::mcset nl "Save As" "Opslaan als"
+    ::msgcat::mcset nl "Save To Log" "Opslaan naar Log"
+    ::msgcat::mcset nl "Select Log File" "Selecteer Log bestand"
+    ::msgcat::mcset nl "Select a file to source" "Selecteer bronbestand"
+    ::msgcat::mcset nl "Selection:" "Selectie:"
+    ::msgcat::mcset nl "Skip Messages" "Berichten overslaan"
+    ::msgcat::mcset nl "Source..." "Bron..."
+    ::msgcat::mcset nl "Tcl Scripts"
+    ::msgcat::mcset nl "Tcl for Windows" "Tcl voor Windows"
+    ::msgcat::mcset nl "Text Files" "Tekst Bestanden"
+    ::msgcat::mcset nl "Yes" "Ja"
+    ::msgcat::mcset nl "abort" "afbreken"
+    ::msgcat::mcset nl "abort, retry, ignore, ok, cancel, no, or yes" "afbreken, opnieuw, negeren, ok, annuleren, nee, of ja"
+    ::msgcat::mcset nl "abortretryignore, ok, okcancel, retrycancel, yesno, or yesnocancel" "abortretryignore, ok, okcancel, retrycancel, yesno, of yesnocancel"
+    ::msgcat::mcset nl "bad %1\$s value \"%2\$s\": must be %3\$s" "foutieve %1\$s waarde \"%2\$s\": moet zijn %3\$s"
+    ::msgcat::mcset nl "bad file type \"%1\$s\", should be" "foutief bestandstype \"%1\$s\", moet zijn"
+    ::msgcat::mcset nl "bad option \"%1\$s\": should be %2\$s" "foutieve optie \"%1\$s\": moet zijn %2\$s"
+    ::msgcat::mcset nl "bad window path name \"%1\$s\"" "foutieve window pad naam \"%1\$s\""
+    ::msgcat::mcset nl "blue" "blauw"
+    ::msgcat::mcset nl "can't post %1\$s:  it isn't a descendant of %2\$s (this is a new requirement in Tk versions 3.0 and later)" "kan %1\$s niet verzenden:  het is geen afstammeling van %2\$s (dit is een niewe verplichting in Tk versies 3.0 en later)"
+    ::msgcat::mcset nl "cancel" "annuleren"
+    ::msgcat::mcset nl "default button index greater than number of buttons specified for tk_dialog" "default knop index is groter dan het aantal knoppen beschikbaar voor tk_dialog"
+    ::msgcat::mcset nl "display name to use (current one otherwise)" "te gebruiken schermnaam (anders huidige scherm)"
+    ::msgcat::mcset nl "error, info, question, or warning" "error, info, question, of warning"
+    ::msgcat::mcset nl "extension"
+    ::msgcat::mcset nl "extensions"
+    ::msgcat::mcset nl "focus group \"%1\$s\" doesn't exist" "focus groep \"%1\$s\" bestaat niet"
+    ::msgcat::mcset nl "green" "groen"
+    ::msgcat::mcset nl "history event %1\$s"
+    ::msgcat::mcset nl "ignore" "negeren"
+    ::msgcat::mcset nl "invalid default button \"%1\$s\"" "ongeldige default knop \"%1\$s\""
+    ::msgcat::mcset nl "macType"
+    ::msgcat::mcset nl "macTypes"
+    ::msgcat::mcset nl "must specify a background color" "een achtergrondkleur is verplicht"
+    ::msgcat::mcset nl "name of the slave interpreter" "naam van de slaaf interpreter"
+    ::msgcat::mcset nl "no winfo screen . nor env(DISPLAY)" "geen winfo scherm . noch env(DISPLAY)"
+    ::msgcat::mcset nl "ok"
+    ::msgcat::mcset nl "red" "rood"
+    ::msgcat::mcset nl "retry" "opnieuw"
+    ::msgcat::mcset nl "should contain 5 or 4 elements" "moet 4 of 5 elementen bevatten"
+    ::msgcat::mcset nl "spec"
+    ::msgcat::mcset nl "tk_chooseDirectory command" "tk_chooseDirectory commando"
+    ::msgcat::mcset nl "tk_chooseDirectory command, cancel gives null" "tk_chooseDirectory commando, annuleren geeft lege waarde"
+    ::msgcat::mcset nl "tk_chooseDirectory command, initialdir" "tk_chooseDirectory commando, initi\u00eble map"
+    ::msgcat::mcset nl "yes" "ja"
+}
diff --git a/library/tk.tcl b/library/tk.tcl
index 364d084..0eb7641 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.36 2002/04/16 11:41:53 bagnonm Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.37 2002/04/26 16:39:07 bagnonm Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -16,6 +16,11 @@
 package require -exact Tk 8.4
 package require -exact Tcl 8.4
 
+# Create a ::tk namespace
+
+namespace eval ::tk {
+}
+
 if { ![interp issafe] } {
     if {[catch {package require msgcat}]} {
 	# msgcat not found. A minimal msgcat is defined
@@ -65,11 +70,6 @@ set ::tk_strictMotif 0
 
 catch {tk useinputmethods 1}
 
-# Create a ::tk namespace
-
-namespace eval ::tk {
-}
-
 # ::tk::PlaceWindow --
 #   place a toplevel at a particular position
 # Arguments: