String.st
changeset 14968 744278e94f57
parent 14752 201d3e649814
child 15043 22ec45b5dd19
child 18040 a11a12546f23
--- a/String.st	Tue Mar 26 17:57:41 2013 +0100
+++ b/String.st	Tue Mar 26 17:58:19 2013 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -498,6 +496,7 @@
 
 
 
+
 !String class methodsFor:'queries'!
 
 defaultPlatformClass
@@ -1117,7 +1116,7 @@
      'hello world' indexOfAny:'AOE' startingAt:1
      'hello world' indexOfAny:'o' startingAt:6
      'hello world' indexOfAny:'o' startingAt:6
-     'hello world§' indexOfAny:'#§$' startingAt:6
+     'hello world§' indexOfAny:'#§$' startingAt:6
     "
 !
 
@@ -2070,11 +2069,12 @@
 asUUID
     "return self as a UUID"
 
-    ^ UUID readFrom:self
+    ^ UUID fromString:self
 
     "
      '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}' asUUID
      'EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B' asUUID
+     'EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B quatsch' asUUID
     "
 
     "Modified: / 02-08-2007 / 16:43:29 / cg"
@@ -3073,8 +3073,8 @@
     "  
       'hello world' asUnicode16String errorPrint
       (Character value:356) asString errorPrint
-      'Bönnigheim' errorPrint
-      'Bönnigheim' asUnicodeString errorPrint
+      'Bönnigheim' errorPrint
+      'Bönnigheim' asUnicodeString errorPrint
     "
 !
 
@@ -3886,10 +3886,10 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.301 2013-02-05 15:30:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.302 2013-03-26 16:58:19 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.301 2013-02-05 15:30:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.302 2013-03-26 16:58:19 stefan Exp $'
 ! !