Nicolas Cellier uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-nice.25.mcz==================== Summary ====================
Name: GetText-nice.25
Author: nice
Time: 31 March 2012, 3:42:21.401 pm
UUID: 3d116085-38ce-4851-a71f-73f126c8165b
Ancestors: GetText-nice.24
Oops, correct my miss-simplification, the \n was missing...
=============== Diff against GetText-nice.24 ===============
Item was changed:
----- Method: GetTextExporter>>exportTag:msg: (in category 'private') -----
exportTag: tag msg: aString
stream nextPutAll: tag.
stream space.
+ aString lineIndicesDo: [:start :endWithoutDelimiters :end |
+ | line |
+ line := (end = endWithoutDelimiters)
+ ifTrue: [aString copyFrom: start to: endWithoutDelimiters]
+ ifFalse: [(aString at: endWithoutDelimiters + 1) = Character cr
+ ifTrue: [aString copyFrom: start to: endWithoutDelimiters + 1]
+ ifFalse: [(aString copyFrom: start to: endWithoutDelimiters) copyWith: Character cr]].
- aString linesDo: [:line |
stream
nextPut: $";
nextPutAll: (self formatString: line);
nextPut: $";
cr].!