The Inbox: GetText-nice.25.mcz

A new version of GetText was added to project The Inbox:
http://source.squeak.org/inbox/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].!