#UI_ENHANCEMENT by cg draft
authorClaus Gittinger <cg@exept.de>
Tue, 30 Oct 2018 16:29:49 +0100
changeset 3627 9ee9d719f243
parent 3626 4cc3a9c52aa7
child 3628 dae68c3b50a6
#UI_ENHANCEMENT by cg class: Tools::InternationalLanguageTranslationEditor changed: #readResourceFileForPackage: show package in window title
Tools__InternationalLanguageTranslationEditor.st
--- a/Tools__InternationalLanguageTranslationEditor.st	Thu Oct 25 16:26:05 2018 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Tue Oct 30 16:29:49 2018 +0100
@@ -2054,38 +2054,41 @@
 
     allLanguages := Set new.
     resourceDir directoryContentsAsFilenamesDo:[:eachFile |
-	eachFile suffix = 'rs' ifTrue:[
-	    (('##.rs' match:eachFile baseName)
-	    or:[('##-##.rs' match:eachFile baseName)]) ifTrue:[
-		allLanguages add:(eachFile withoutSuffix baseName)
-	    ].
-	].
+        eachFile suffix = 'rs' ifTrue:[
+            (('##.rs' match:eachFile baseName)
+            or:[('##-##.rs' match:eachFile baseName)]) ifTrue:[
+                allLanguages add:(eachFile withoutSuffix baseName)
+            ].
+        ].
     ].
 
     allLanguages addAll:languagesList.
     allLanguages := allLanguages asSortedCollection.
 
     lang := Dialog
-	choose:(resources string:'For which language ?')
-	fromList:allLanguages
-	values:allLanguages
-	buttons:(resources array:#('All'))
-	values:#(all)
-	lines:10
-	cancel:nil.
+        choose:(resources string:'For which language ?')
+        fromList:allLanguages
+        values:allLanguages
+        buttons:(resources array:#('All'))
+        values:#(all)
+        lines:10
+        cancel:nil.
 
     lang isNil ifTrue:[^ self ].
 
     langFile := resourceDir construct:lang,'.rs'.
 
     lang == #all ifTrue:[
-	allLanguages do:[:lang |
-	    self addLanguage:lang.
-	    self readResourceFile:(resourceDir construct:lang,'.rs') asLanguage:lang.
-	].
+        allLanguages do:[:lang |
+            self addLanguage:lang.
+            self readResourceFile:(resourceDir construct:lang,'.rs') asLanguage:lang.
+        ].
     ] ifFalse:[
-	self readResourceFile:langFile asLanguage:lang asSymbol
+        self readResourceFile:langFile asLanguage:lang asSymbol
     ].
+    self window label:('%1: %2' bindWith:self class nameWithoutPrefix with:aPackage)
+
+    "Modified: / 30-10-2018 / 16:29:07 / Claus Gittinger"
 !
 
 removeLanguage