# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1315452156 -7200
# Node ID ff92dd203d7e7d9da71cf07dc3ab54d0b7bee24b
# Parent  9e79ea75f221dded5cb5b7410635a86b32cca661
category of: #isTextView

diff -r 9e79ea75f221 -r ff92dd203d7e TextView.st
--- a/TextView.st	Wed Sep 07 16:23:58 2011 +0200
+++ b/TextView.st	Thu Sep 08 05:22:36 2011 +0200
@@ -2410,12 +2410,6 @@
     ^ false
 !
 
-isTextView
-    "I am showing text"
-
-    ^ true
-!
-
 specClass
     "redefined, since the name of my specClass is nonStandard (i.e. not TextViewSpec)"
 
@@ -4370,14 +4364,22 @@
     "Modified: 29.4.1996 / 12:32:08 / cg"
 ! !
 
+!TextView methodsFor:'testing'!
+
+isTextView
+    "I am showing text"
+
+    ^ true
+! !
+
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.324 2011-06-14 12:08:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.325 2011-09-08 03:22:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.324 2011-06-14 12:08:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.325 2011-09-08 03:22:36 cg Exp $'
 ! !
 
 TextView initialize!