--- a/CharacterArray.st Sat Mar 01 16:34:40 2014 +0100
+++ b/CharacterArray.st Sat Mar 01 16:47:40 2014 +0100
@@ -725,6 +725,7 @@
+
!CharacterArray methodsFor:'Compatibility-ANSI'!
addLineDelimiters
@@ -1410,15 +1411,20 @@
"
!
-subStrings:separatorCharacter
+subStrings:separatorCharacterOrString
"return an array consisting of all words contained in the receiver.
Words are separated by separatorCharacter.
This has been added for VisualAge compatibility."
- ^ self asCollectionOfSubstringsSeparatedBy:separatorCharacter
-
- "
- 'foo:bar:baz:smalltalk' subStrings:$:
+ separatorCharacterOrString isCharacter ifTrue:[
+ ^ self asCollectionOfSubstringsSeparatedBy:separatorCharacterOrString
+ ].
+ ^ self asCollectionOfSubstringsSeparatedByAny:separatorCharacterOrString
+
+ "
+ 'foo:bar:baz:smalltalk' subStrings:$:
+ 'foo:bar:baz:smalltalk' subStrings:':'
+ 'foo.bar,baz-smalltalk' subStrings:'.,-'
"
!
@@ -6925,11 +6931,11 @@
!CharacterArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.524 2014-03-01 15:02:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.525 2014-03-01 15:47:40 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.524 2014-03-01 15:02:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.525 2014-03-01 15:47:40 cg Exp $'
! !