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
  !