changeset 6412 | 5ceab4c0d579 |
parent 6401 | de518dc6caf9 |
child 6436 | 210307378a50 |
--- a/EditTextView.st Wed Aug 29 09:10:34 2018 +0200 +++ b/EditTextView.st Wed Aug 29 09:24:50 2018 +0200 @@ -1439,9 +1439,13 @@ list isNil ifTrue:[^ '']. self removeTrailingBlankLines. - ^ (list collect:[:each | each isNil ifTrue:[''] - ifFalse:[each string] - ]) asStringWithCRs + ^ (list collect:[:each | + each isNil + ifTrue:[''] + ifFalse:[each string] + ]) asStringWithCRs + + "Modified (format): / 29-08-2018 / 09:24:29 / Claus Gittinger" ! contentsAsStringWithTabs