2052 packageDir := Smalltalk packageDirectoryForPackageId:aPackage. |
2052 packageDir := Smalltalk packageDirectoryForPackageId:aPackage. |
2053 resourceDir := packageDir asFilename construct:'resources'. |
2053 resourceDir := packageDir asFilename construct:'resources'. |
2054 |
2054 |
2055 allLanguages := Set new. |
2055 allLanguages := Set new. |
2056 resourceDir directoryContentsAsFilenamesDo:[:eachFile | |
2056 resourceDir directoryContentsAsFilenamesDo:[:eachFile | |
2057 eachFile suffix = 'rs' ifTrue:[ |
2057 eachFile suffix = 'rs' ifTrue:[ |
2058 (('##.rs' match:eachFile baseName) |
2058 (('##.rs' match:eachFile baseName) |
2059 or:[('##-##.rs' match:eachFile baseName)]) ifTrue:[ |
2059 or:[('##-##.rs' match:eachFile baseName)]) ifTrue:[ |
2060 allLanguages add:(eachFile withoutSuffix baseName) |
2060 allLanguages add:(eachFile withoutSuffix baseName) |
2061 ]. |
2061 ]. |
2062 ]. |
2062 ]. |
2063 ]. |
2063 ]. |
2064 |
2064 |
2065 allLanguages addAll:languagesList. |
2065 allLanguages addAll:languagesList. |
2066 allLanguages := allLanguages asSortedCollection. |
2066 allLanguages := allLanguages asSortedCollection. |
2067 |
2067 |
2068 lang := Dialog |
2068 lang := Dialog |
2069 choose:(resources string:'For which language ?') |
2069 choose:(resources string:'For which language ?') |
2070 fromList:allLanguages |
2070 fromList:allLanguages |
2071 values:allLanguages |
2071 values:allLanguages |
2072 buttons:(resources array:#('All')) |
2072 buttons:(resources array:#('All')) |
2073 values:#(all) |
2073 values:#(all) |
2074 lines:10 |
2074 lines:10 |
2075 cancel:nil. |
2075 cancel:nil. |
2076 |
2076 |
2077 lang isNil ifTrue:[^ self ]. |
2077 lang isNil ifTrue:[^ self ]. |
2078 |
2078 |
2079 langFile := resourceDir construct:lang,'.rs'. |
2079 langFile := resourceDir construct:lang,'.rs'. |
2080 |
2080 |
2081 lang == #all ifTrue:[ |
2081 lang == #all ifTrue:[ |
2082 allLanguages do:[:lang | |
2082 allLanguages do:[:lang | |
2083 self addLanguage:lang. |
2083 self addLanguage:lang. |
2084 self readResourceFile:(resourceDir construct:lang,'.rs') asLanguage:lang. |
2084 self readResourceFile:(resourceDir construct:lang,'.rs') asLanguage:lang. |
2085 ]. |
2085 ]. |
2086 ] ifFalse:[ |
2086 ] ifFalse:[ |
2087 self readResourceFile:langFile asLanguage:lang asSymbol |
2087 self readResourceFile:langFile asLanguage:lang asSymbol |
2088 ]. |
2088 ]. |
|
2089 self window label:('%1: %2' bindWith:self class nameWithoutPrefix with:aPackage) |
|
2090 |
|
2091 "Modified: / 30-10-2018 / 16:29:07 / Claus Gittinger" |
2089 ! |
2092 ! |
2090 |
2093 |
2091 removeLanguage |
2094 removeLanguage |
2092 |languagesToRemove| |
2095 |languagesToRemove| |
2093 |
2096 |