String.st
changeset 2856 70fe48053cf1
parent 2680 18c85df5d930
child 2858 866ffc52ac8a
--- a/String.st	Thu Aug 14 11:58:10 1997 +0200
+++ b/String.st	Thu Aug 14 15:45:28 1997 +0200
@@ -1103,6 +1103,14 @@
 
 !String methodsFor:'converting'!
 
+asString
+    "I am a string"
+
+    ^ self
+
+    "Created: 14.8.1997 / 11:37:03 / stefan"
+!
+
 asSymbol
     "return a unique symbol with the name taken from myself.
      The receiver must be a String, subclass instances are (currently)
@@ -2337,5 +2345,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.93 1997-06-07 08:05:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.94 1997-08-14 13:45:28 stefan Exp $'
 ! !