--- a/TextView.st	Sun Apr 19 00:09:07 1998 +0200
+++ b/TextView.st	Sun Apr 19 17:10:08 1998 +0200
@@ -521,6 +521,14 @@
     super setList:something
 !
 
+text
+    "for ST80 compatibility"
+
+    ^ self contents
+
+    "Created: / 19.4.1998 / 12:53:10 / cg"
+!
+
 wordAtLine:selectLine col:selectCol do:aFiveArgBlock
     "find word boundaries, evaluate the block argument with those.
      A helper for nextWord and selectWord functions."
@@ -2849,5 +2857,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.115 1998-04-03 14:54:44 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.116 1998-04-19 15:10:08 cg Exp $'
 ! !