equal
deleted
inserted
replaced
1953 self readResourceFile:aFilename. |
1953 self readResourceFile:aFilename. |
1954 ] |
1954 ] |
1955 ! |
1955 ! |
1956 |
1956 |
1957 menuOpenByPackage |
1957 menuOpenByPackage |
1958 |package| |
|
1959 |
|
1960 self withWaitCursorDo:[ |
1958 self withWaitCursorDo:[ |
1961 package := self requestPackage. |
1959 |package| |
1962 package isNil ifTrue:[^ self ]. |
1960 |
1963 self readResourceFileForPackage:package. |
1961 package := self requestPackage. |
|
1962 package isNil ifTrue:[^ self ]. |
|
1963 self readResourceFileForPackage:package. |
1964 ] |
1964 ] |
|
1965 |
|
1966 "Modified (format): / 20-02-2019 / 11:47:01 / Claus Gittinger" |
1965 ! |
1967 ! |
1966 |
1968 |
1967 menuSave |
1969 menuSave |
1968 "Saves the language selected in the fileName from where the language resource was obtained." |
1970 "Saves the language selected in the fileName from where the language resource was obtained." |
1969 |lang| |
1971 |lang| |
2077 readResourceFileForPackage:aPackage |
2079 readResourceFileForPackage:aPackage |
2078 |allLanguages lang packageDir resourceDir langFile| |
2080 |allLanguages lang packageDir resourceDir langFile| |
2079 |
2081 |
2080 packageDir := Smalltalk packageDirectoryForPackageId:aPackage. |
2082 packageDir := Smalltalk packageDirectoryForPackageId:aPackage. |
2081 resourceDir := packageDir asFilename construct:'resources'. |
2083 resourceDir := packageDir asFilename construct:'resources'. |
|
2084 resourceDir exists ifFalse:[ |
|
2085 Dialog information:'No resource directory present for package: ',aPackage. |
|
2086 ^ self |
|
2087 ]. |
2082 |
2088 |
2083 allLanguages := Set new. |
2089 allLanguages := Set new. |
2084 resourceDir directoryContentsAsFilenamesDo:[:eachFile | |
2090 resourceDir directoryContentsAsFilenamesDo:[:eachFile | |
2085 eachFile suffix = 'rs' ifTrue:[ |
2091 eachFile suffix = 'rs' ifTrue:[ |
2086 (('##.rs' match:eachFile baseName) |
2092 (('##.rs' match:eachFile baseName) |
2114 ] ifFalse:[ |
2120 ] ifFalse:[ |
2115 self readResourceFile:langFile asLanguage:lang asSymbol |
2121 self readResourceFile:langFile asLanguage:lang asSymbol |
2116 ]. |
2122 ]. |
2117 self window label:('%1: %2' bindWith:self class nameWithoutPrefix with:aPackage) |
2123 self window label:('%1: %2' bindWith:self class nameWithoutPrefix with:aPackage) |
2118 |
2124 |
2119 "Modified: / 30-10-2018 / 16:29:07 / Claus Gittinger" |
2125 "Modified: / 20-02-2019 / 11:45:50 / Claus Gittinger" |
2120 ! |
2126 ! |
2121 |
2127 |
2122 removeLanguage |
2128 removeLanguage |
2123 |languagesToRemove| |
2129 |languagesToRemove| |
2124 |
2130 |