--- a/StringCollection.st Sun Nov 12 20:15:48 2017 +0100
+++ b/StringCollection.st Tue Nov 14 16:41:52 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -215,7 +213,8 @@
numberOfLines := aString occurrencesOf:delimiter.
numberOfLines == 0 ifTrue:[
"/ check if it's a return-delimited string
- (aString occurrencesOf:(Character return)) > 0 ifTrue:[
+ numberOfLines := aString occurrencesOf:(Character return).
+ numberOfLines > 0 ifTrue:[
delimiter := Character return.
].
].
@@ -231,7 +230,7 @@
stop == 0 ifTrue:[
self at:lineNr put:(aString copyFrom:start).
self from:lineNr+1 to:numberOfLines put:''.
- ^ self.
+ ^ self
].
self at:lineNr put:(aString copyFrom:start to:stop-1).
@@ -240,6 +239,7 @@
"Modified: / 25-07-2012 / 18:52:58 / cg"
"Modified (format): / 13-02-2017 / 20:31:40 / cg"
+ "Modified (format): / 14-11-2017 / 16:26:27 / mawalch"
! !
!StringCollection methodsFor:'copying'!