--- 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