CharacterArray.st
branchjv
changeset 18200 3ddc4e7d42c0
parent 18192 32a7c53ef4d0
parent 18194 bec89cec5d13
child 18258 9f83d8bddcf0
--- a/CharacterArray.st	Wed Apr 08 12:23:25 2015 +0200
+++ b/CharacterArray.st	Fri Apr 10 07:05:03 2015 +0200
@@ -337,6 +337,7 @@
     "
 ! !
 
+
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -2768,7 +2769,7 @@
     |lines|
 
     lines := self asCollectionOfSubstringsSeparatedBy:Character cr.
-    lines last isEmpty ifTrue:[
+    (lines notEmpty and:[lines last isEmpty]) ifTrue:[
         ^ lines copyButLast:1
     ].
     ^ lines
@@ -2778,6 +2779,7 @@
      '1\2\3\' withCRs asCollectionOfLines
      '1\2\3' withCRs asCollectionOfLinesWithReturn
      '1\2\3\' withCRs asCollectionOfLinesWithReturn
+     '' withCRs asCollectionOfLinesWithReturn
     "
 !
 
@@ -5789,6 +5791,7 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'special string converting'!
 
 asUnixFilenameString
@@ -6779,6 +6782,7 @@
     "
 ! !
 
+
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -7382,11 +7386,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.581 2015-03-30 19:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.582 2015-04-09 11:42:14 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.581 2015-03-30 19:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.582 2015-04-09 11:42:14 stefan Exp $'
 ! !