--- a/TextView.st	Thu Jan 07 13:09:16 1999 +0100
+++ b/TextView.st	Thu Jan 07 14:24:21 1999 +0100
@@ -16,8 +16,8 @@
 		clickCount expandingTop wordStartCol wordStartLine wordEndCol
 		wordEndLine selectionFgColor selectionBgColor selectStyle
 		directoryForFileDialog defaultFileNameForFileDialog
-		externalEncoding contentsWasSaved
-		lastSearchPattern lastSearchIgnoredCase lastSearchDirection'
+		externalEncoding contentsWasSaved lastSearchPattern
+		lastSearchIgnoredCase lastSearchDirection'
 	classVariableNames:'DefaultViewBackground DefaultSelectionForegroundColor
 		DefaultSelectionBackgroundColor MatchDelayTime
 		WordSelectCatchesBlanks ST80Selections LastSearchPatterns'
@@ -207,6 +207,18 @@
     ^DefaultViewBackground
 !
 
+st80SelectMode
+    ^ ST80Selections
+
+    "Modified: / 6.1.1999 / 14:19:26 / cg"
+!
+
+st80SelectMode:aBoolean
+    ST80Selections := aBoolean
+
+    "Created: / 7.1.1999 / 13:35:24 / cg"
+!
+
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
@@ -2887,5 +2899,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.124 1999-01-07 12:09:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.125 1999-01-07 13:24:21 cg Exp $'
 ! !