The Trunk: GetText-nice.24.mcz

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
  !