#FEATURE
authorStefan Vogel <sv@exept.de>
Fri, 13 Nov 2015 15:09:26 +0100
changeset 3644 baa4ec9a3b28
parent 3641 01c3ae2c1edf
child 3645 13d931d372a8
child 3646 82247702d48b
#FEATURE class: Text added: #isPlainString
Text.st
--- a/Text.st	Thu Oct 29 13:51:12 2015 +0100
+++ b/Text.st	Fri Nov 13 15:09:26 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1996 by Claus Gittinger
               All Rights Reserved
@@ -579,6 +577,7 @@
     "Modified (comment): / 06-03-2012 / 18:23:32 / cg"
 ! !
 
+
 !Text methodsFor:'accessing'!
 
 at:characterIndex
@@ -1734,6 +1733,13 @@
     "Modified: 16.5.1996 / 11:25:12 / cg"
 !
 
+isPlainString
+    "return true, if the receiver is a plain string - without attributes;
+     false is returned here."
+
+    ^ false
+!
+
 isText
     "return true if this is a Text object - always true here"