--- 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 $'
! !