Chris Muller uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-cmm.19.mcz==================== Summary ====================
Name: GetText-cmm.19
Author: cmm
Time: 27 March 2012, 6:38:29.89 pm
UUID: ae7baa63-049b-4172-b7c8-e5d3546d0bb6
Ancestors: GetText-edc.18
Fix String DNU directoryNamed:.
=============== Diff against GetText-edc.18 ===============
Item was changed:
----- Method: InternalTranslator class>>loadAvailableExternalLocales (in category 'private loading') -----
loadAvailableExternalLocales
"private - register locales IDs based on the content of the <prefs>/locale/ directory"
| localeDir |
localeDir := self localeDirCreate: false.
localeDir ifNil: [^ #()].
localeDir directoryNames
do: [:langDirName |
| langDir |
langDir := localeDir directoryNamed: langDirName.
(langDir fileNamesMatching: '*.' , self translationSuffix)
ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: nil].
langDir directoryNames
do: [:countryDirName |
| countryDir |
+ countryDir := langDir directoryNamed: countryDirName.
- countryDir := langDirName directoryNamed: countryDirName.
(countryDir fileNamesMatching: '*.' , self translationSuffix)
ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName]
]
].
!