# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 832773570 -7200
# Node ID a317ba02d6854764f7c4ce4e78e75762dbfa8d63
# Parent  8b2eacaea59c96a1545d39ad405a7f1bc49c9421
allow aText asSymbol

diff -r 8b2eacaea59c -r a317ba02d685 CharArray.st
--- a/CharArray.st	Tue May 21 13:11:56 1996 +0200
+++ b/CharArray.st	Wed May 22 15:59:30 1996 +0200
@@ -2100,6 +2100,16 @@
     "Modified: 13.5.1996 / 20:36:59 / cg"
 !
 
+asSymbol
+    "return a unique symbol with the name taken from my characters.
+     The receiver must be a singleByte-String; twoByteSymbols are
+     (currently) not allowed."
+
+    ^ self string asSymbol
+
+    "Created: 22.5.1996 / 15:56:11 / cg"
+!
+
 asText
     "return a Text-object (collection of lines) from myself."
 
@@ -3872,5 +3882,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.91 1996-05-20 08:45:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.92 1996-05-22 13:59:30 cg Exp $'
 ! !
diff -r 8b2eacaea59c -r a317ba02d685 CharacterArray.st
--- a/CharacterArray.st	Tue May 21 13:11:56 1996 +0200
+++ b/CharacterArray.st	Wed May 22 15:59:30 1996 +0200
@@ -2100,6 +2100,16 @@
     "Modified: 13.5.1996 / 20:36:59 / cg"
 !
 
+asSymbol
+    "return a unique symbol with the name taken from my characters.
+     The receiver must be a singleByte-String; twoByteSymbols are
+     (currently) not allowed."
+
+    ^ self string asSymbol
+
+    "Created: 22.5.1996 / 15:56:11 / cg"
+!
+
 asText
     "return a Text-object (collection of lines) from myself."
 
@@ -3872,5 +3882,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.91 1996-05-20 08:45:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.92 1996-05-22 13:59:30 cg Exp $'
 ! !