--- 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"