class: Symbol
authorClaus Gittinger <cg@exept.de>
Sat, 12 Jul 2014 07:39:00 +0200
changeset 16774 b543c13298b8
parent 16773 5d50150c6437
child 16775 7a313614ae19
class: Symbol added: #isSingleByteString
Symbol.st
--- a/Symbol.st	Sat Jul 12 07:38:14 2014 +0200
+++ b/Symbol.st	Sat Jul 12 07:39:00 2014 +0200
@@ -796,6 +796,15 @@
     "Created: / 20-06-2011 / 14:59:02 / cg"
 ! !
 
+!Symbol methodsFor:'testing'!
+
+isSingleByteString
+    "returns true only for strings and immutable strings.
+     Must replace foo isMemberOf:String and foo class == String"
+
+    ^ false
+! !
+
 !Symbol methodsFor:'tracing'!
 
 traceInto:aRequestor level:level from:referrer
@@ -817,11 +826,11 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.110 2014-07-09 16:21:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.111 2014-07-12 05:39:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.110 2014-07-09 16:21:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.111 2014-07-12 05:39:00 cg Exp $'
 !
 
 version_SVN