# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1081269391 -7200
# Node ID 8433d819226bb2f0055ec3c8c7d09095bdec4658
# Parent  ba5f4421848f248753a0e2454ffee0c055040a45
Define #asUnicode16String and #asUnicode32String in CharacterArray

diff -r ba5f4421848f -r 8433d819226b CharacterArray.st
--- a/CharacterArray.st	Tue Apr 06 18:35:40 2004 +0200
+++ b/CharacterArray.st	Tue Apr 06 18:36:31 2004 +0200
@@ -2490,6 +2490,24 @@
     "
 !
 
+asUnicode16String
+    "thats not really true - characters above ascii 16r7F may need special treatment"
+
+    ^ ((Unicode16String new:self size) replaceFrom:1 to:self size with:self startingAt:1)
+!
+
+asUnicode32String
+    "thats not really true - characters above ascii 16r7F may need special treatment"
+
+    ^ ((Unicode32String new:self size) replaceFrom:1 to:self size with:self startingAt:1)
+!
+
+asUnicodeString
+    "thats not really true - characters above ascii 16r7F may need special treatment"
+
+    ^ ((UnicodeString new:self size) replaceFrom:1 to:self size with:self startingAt:1)
+!
+
 asUppercase
     "return a copy of myself in uppercase letters"
 
@@ -4945,7 +4963,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.299 2004-03-17 16:17:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.300 2004-04-06 16:36:31 stefan Exp $'
 ! !
 
 CharacterArray initialize!
diff -r ba5f4421848f -r 8433d819226b String.st
--- a/String.st	Tue Apr 06 18:35:40 2004 +0200
+++ b/String.st	Tue Apr 06 18:36:31 2004 +0200
@@ -1652,12 +1652,6 @@
     "
 !
 
-asUnicodeString
-    "thats not really true - characters above ascii 16r7F may need special treatment"
-
-    ^ ((UnicodeString new:self size) replaceFrom:1 to:self size with:self startingAt:1)
-!
-
 decodeAsLiteralArray
     "given a literalEncoding in the receiver,
      create & return the corresponding object.
@@ -3246,8 +3240,9 @@
 
 ! !
 
+
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.203 2004-03-16 09:01:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.204 2004-04-06 16:36:12 stefan Exp $'
 ! !