Nicolas Cellier uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-nice.24.mcz
==================== Summary ====================
Name: GetText-nice.24 Author: nice Time: 31 March 2012, 3:28:04.209 pm UUID: 75607620-7ed2-4be7-b8e2-a8db965fb63c Ancestors: GetText-nice.23
Properly indent method body in *Extensions also. Simplify multi-line export with #linesDo:
=============== Diff against GetText-nice.23 ===============
Item was changed: ----- Method: GetTextExporter>>exportTag:msg: (in category 'private') ----- exportTag: tag msg: aString + stream nextPutAll: tag. + stream space. + aString linesDo: [:line | + stream + nextPut: $"; + nextPutAll: (self formatString: line); + nextPut: $"; + cr].! - | pos end line | - (aString indexOf: Character cr) - = 0 - ifTrue: [self exportTag: tag singleLine: aString] - ifFalse: [self exportTag: tag singleLine: ''. - pos := 1. - end := 0. - [end < aString size] - whileTrue: [end := aString indexOf: Character cr startingAt: pos. - end = 0 - ifTrue: [end := aString size]. - line := aString copyFrom: pos to: end. - stream nextPut: $"; - - nextPutAll: (self formatString: line); - nextPut: $"; - cr. - pos := end + 1]]!
Item was removed: - ----- Method: GetTextExporter>>exportTag:singleLine: (in category 'private') ----- - exportTag: tag singleLine: aString - stream nextPutAll: tag. - stream space. - stream nextPut: $". - stream - nextPutAll: (self formatString: aString). - stream nextPut: $". - stream cr!
Item was changed: ----- Method: String>>translatedInAnyDomain (in category '*gettext') ----- translatedInAnyDomain + | translation | + Transcript show: self printString, ' translatedInAnyDomain'; cr. + TextDomainManager allKnownDomains do: [:domain | + translation := self translatedInDomain: domain. + self = translation ifFalse: [^translation]]. + ^self! - | translation | - Transcript show: self printString, ' translatedInAnyDomain'; cr. - TextDomainManager allKnownDomains do: [:domain | - translation := self translatedInDomain: domain. - self = translation ifFalse: [^translation] - ]. - ^self!
Item was changed: ----- Method: String>>translatedInDomain: (in category '*gettext') ----- translatedInDomain: aDomainName + | translation | + translation := self translatedTo: LocaleID current inDomain: aDomainName. + self == translation ifTrue: [^self translatedInAllDomains]. + ^translation - | translation | - translation := self translatedTo: LocaleID current inDomain: aDomainName. - self == translation ifTrue: [^self translatedInAllDomains]. - ^translation !
Item was changed: ----- Method: String>>translatedInDomain:or: (in category '*gettext') ----- translatedInDomain: aDomainName or: anotherDomainName + | translation | + translation := self translatedTo: LocaleID current inDomain: aDomainName. + self == translation ifTrue: [^self translatedInDomain: anotherDomainName]. + ^translation - | translation | - translation := self translatedTo: LocaleID current inDomain: aDomainName. - self == translation ifTrue: [^self translatedInDomain: anotherDomainName]. - ^translation !