# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1447931573 -3600
# Node ID 5e7a47ecb14f8050de538bc20cdf7923d7df2355
# Parent  e3e4d06dcc6cf02721e2a3e2147b82af18f5fcf1
#DOCUMENTATION
class: CharacterArray
comment/format in:5 methods

diff -r e3e4d06dcc6c -r 5e7a47ecb14f CharacterArray.st
--- a/CharacterArray.st	Thu Nov 19 12:06:44 2015 +0100
+++ b/CharacterArray.st	Thu Nov 19 12:12:53 2015 +0100
@@ -1210,7 +1210,7 @@
 !
 
 substrings
-    "return an array consisting of all words contained in the receiver.
+    "return a collection consisting of all words contained in the receiver.
      Words are separated by whitespace.
      This has been added for Squeak compatibility.
      (sigh: it is called #'subStrings' in V'Age, and #'asCollectionOfWords' in ST/X) "
@@ -1223,7 +1223,11 @@
 !
 
 substringsSeparatedBy:separatorCharacter
-    "Added for Squeak/Pharo compatibility"
+    "return a collection consisting of all words contained in the receiver.
+     Words are separated by the given separator character.   
+     This has been added for Squeak/Pharo compatibility.
+     (sigh: it is called #'subStrings:' in V'Age, 
+      and #'asCollectionOfSubstringsSeparatedBy' in ST/X) "
 
     ^ self asCollectionOfSubstringsSeparatedBy:separatorCharacter
 
@@ -1473,7 +1477,7 @@
 !
 
 subStrings
-    "return an array consisting of all words contained in the receiver.
+    "return a collection consisting of all words contained in the receiver.
      Words are separated by whitespace.
      This has been added for VisualAge compatibility.
      (sigh: it is called #'subbtrings' in Squeak, and #'asCollectionOfWords' in ST/X) "
@@ -1486,12 +1490,13 @@
 !
 
 subStrings:separatorCharacterOrString
-    "return an array consisting of all words contained in the receiver.
+    "return a collection consisting of all words contained in the receiver.
      Words are separated by separatorCharacter.
-     This is similar to split: and has been added for VisualAge compatibility."
+     This is similar to split: (squeak) and asCollectionOfSubstringsSeparatedBy: (st/x)
+     and has been added for VisualAge compatibility."
 
     separatorCharacterOrString isCharacter ifTrue:[
-	^ self asCollectionOfSubstringsSeparatedBy:separatorCharacterOrString
+        ^ self asCollectionOfSubstringsSeparatedBy:separatorCharacterOrString
     ].
     ^ self asCollectionOfSubstringsSeparatedByAny:separatorCharacterOrString
 
@@ -1504,7 +1509,7 @@
 
 trimSeparators
     "return a copy of the receiver without leading and trailing whiteSpace.
-     Added for VisualAge compatibility and an alias for withoutSeparators"
+     Added for VisualAge compatibility (an alias for withoutSeparators)"
 
     ^ self withoutSeparators
 ! !