--- a/CharacterArray.st	Mon Sep 13 11:04:12 2004 +0200
+++ b/CharacterArray.st	Tue Sep 14 11:53:06 2004 +0200
@@ -1333,6 +1333,22 @@
     "Modified: / 21.7.1998 / 17:25:07 / cg"
 !
 
+indexOfNonSeparator
+    "return the index of the first non-whitespace character.
+     return 0 if no non-separator was found"
+
+    ^ self indexOfNonSeparatorStartingAt:1.
+
+    "
+     '    hello world' indexOfNonSeparator 
+     '    ' indexOfNonSeparator            
+     'a   ' indexOfNonSeparator           
+     'abc' indexOfNonSeparator           
+     ' ' indexOfNonSeparator           
+     '' indexOfNonSeparator           
+    "
+!
+
 indexOfNonSeparatorStartingAt:startIndex
     "return the index of the next non-whitespace character,
      starting the search at startIndex, searching forward;
@@ -5035,7 +5051,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.307 2004-09-08 15:19:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.308 2004-09-14 09:53:06 cg Exp $'
 ! !
 
 CharacterArray initialize!