I18n (and some l10n) for the console and the main window of the widget demo.

2 files changed, 28 insertions, 20 deletions

diff --git a/library/msgs/de.msg b/library/msgs/de.msg
index c5ae689..cfcf1cd 100644
--- a/library/msgs/de.msg
+++ b/library/msgs/de.msg
@@ -1,23 +1,26 @@
 namespace eval ::tk {
     ::msgcat::mcset de "&Abort" "&Abbruch"
-    ::msgcat::mcset de "About..." "\u00dcber..."
+    ::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 "&Clear" "&R\u00fccksetzen"
+    ::msgcat::mcset de "&Clear Console" "&Konsole l\u00f6schen"
     ::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 "&Copy" "&Kopieren"
+    ::msgcat::mcset de "Cu&t" "Aus&schneiden"
+    ::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 "&Edit" "&Bearbieten"
     ::msgcat::mcset de "Error: %1\$s" "Fehler: %1\$s"
-    ::msgcat::mcset de "Exit" "Ende"
+    ::msgcat::mcset de "E&xit" "&Ende"
+    ::msgcat::mcset de "&File" "&Datei"
     ::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."
@@ -28,8 +31,9 @@ namespace eval ::tk {
     ::msgcat::mcset de "&Filter"
     ::msgcat::mcset de "Fil&ter:"
     ::msgcat::mcset de "&Green" "&Gr\u00fcn"
+    ::msgcat::mcset de "&Help" "&Hilfe"
     ::msgcat::mcset de "Hi" "Hallo"
-    ::msgcat::mcset de "Hide Console" "Konsole unsichtbar machen"
+    ::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"
@@ -39,8 +43,8 @@ namespace eval ::tk {
     ::msgcat::mcset de "Open" "\u00d6ffnen"
     ::msgcat::mcset de "&Open" "\u00d6&ffnen"
     ::msgcat::mcset de "Open Multiple Files"
-    ::msgcat::mcset de "Paste" "Einf\u00fcgen"
-    ::msgcat::mcset de "Quit" "Beenden"
+    ::msgcat::mcset de "P&aste" "E&inf\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"
@@ -51,7 +55,7 @@ namespace eval ::tk {
     ::msgcat::mcset de "Select a file to source" "Auszuf\u00fchrende Datei ausw\u00e4hlen"
     ::msgcat::mcset de "&Selection:" "Auswah&l:"
     ::msgcat::mcset de "Skip Messages" "Weitere Nachrichten \u00fcberspringen"
-    ::msgcat::mcset de "Source..." "Ausf\u00fchren..."
+    ::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"
diff --git a/library/msgs/en.msg b/library/msgs/en.msg
index 7242f91..7434d71 100644
--- a/library/msgs/en.msg
+++ b/library/msgs/en.msg
@@ -1,23 +1,26 @@
 namespace eval ::tk {
     ::msgcat::mcset en "&Abort"
-    ::msgcat::mcset en "About..."
+    ::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 "Cl&ear"
+    ::msgcat::mcset en "&Clear Console"
     ::msgcat::mcset en "Color"
     ::msgcat::mcset en "Console"
-    ::msgcat::mcset en "Copy"
-    ::msgcat::mcset en "Cut"
-    ::msgcat::mcset en "Delete"
+    ::msgcat::mcset en "&Copy"
+    ::msgcat::mcset en "Cu&t"
+    ::msgcat::mcset en "&Delete"
     ::msgcat::mcset en "Details >>"
     ::msgcat::mcset en "Directory \"%1\$s\" does not exist."
     ::msgcat::mcset en "&Directory:"
+    ::msgcat::mcset en "&Edit"
     ::msgcat::mcset en "Error: %1\$s"
-    ::msgcat::mcset en "Exit"
+    ::msgcat::mcset en "E&xit"
+    ::msgcat::mcset en "&File"
     ::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."
@@ -28,8 +31,9 @@ namespace eval ::tk {
     ::msgcat::mcset en "&Filter"
     ::msgcat::mcset en "Fil&ter:"
     ::msgcat::mcset en "&Green"
+    ::msgcat::mcset en "&Help"
     ::msgcat::mcset en "Hi"
-    ::msgcat::mcset en "Hide Console"
+    ::msgcat::mcset en "&Hide Console"
     ::msgcat::mcset en "&Ignore"
     ::msgcat::mcset en "Invalid file name \"%1\$s\"."
     ::msgcat::mcset en "Log Files"
@@ -39,8 +43,8 @@ namespace eval ::tk {
     ::msgcat::mcset en "Open"
     ::msgcat::mcset en "&Open"
     ::msgcat::mcset en "Open Multiple Files"
-    ::msgcat::mcset en "Paste"
-    ::msgcat::mcset en "Quit"
+    ::msgcat::mcset en "P&aste"
+    ::msgcat::mcset en "&Quit"
     ::msgcat::mcset en "&Red"
     ::msgcat::mcset en "Replace existing file?"
     ::msgcat::mcset en "&Retry"
@@ -51,7 +55,7 @@ namespace eval ::tk {
     ::msgcat::mcset en "Select a file to source"
     ::msgcat::mcset en "&Selection:"
     ::msgcat::mcset en "Skip Messages"
-    ::msgcat::mcset en "Source..."
+    ::msgcat::mcset en "&Source..."
     ::msgcat::mcset en "Tcl Scripts"
     ::msgcat::mcset en "Tcl for Windows"
     ::msgcat::mcset en "Text Files"