Character.st
changeset 12 8e03bd717355
parent 10 4f1f9a91e406
child 37 d9a302eaa3ef
--- a/Character.st	Sat Dec 11 01:42:02 1993 +0100
+++ b/Character.st	Sat Dec 11 01:46:55 1993 +0100
@@ -36,7 +36,7 @@
 instances for $x and, since equality check on the Character class is
 wired into the system in many places.)
 
-$Header: /cvs/stx/stx/libbasic/Character.st,v 1.5 1993-11-08 02:29:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Character.st,v 1.6 1993-12-11 00:44:49 claus Exp $
 
 '!
 
@@ -198,6 +198,20 @@
      ^ self
 !
 
+simpleDeepCopy
+    "return a depp copy of myself
+     reimplemented since characters are unique"
+
+     ^ self
+!
+
+deepCopyUsing:aDictionary
+    "return a depp copy of myself
+     reimplemented since characters are unique"
+
+     ^ self
+!
+
 deepCopy
     "return a depp copy of myself
      reimplemented since characters are unique"
@@ -577,6 +591,12 @@
 
 !Character methodsFor:'printing & storing'!
 
+isLiteral
+    "return true, if the receiver can be used as a literal"
+
+    ^ true
+!
+
 printString
     "return a string to print me"