--- a/TextView.st	Fri Mar 02 16:03:48 2007 +0100
+++ b/TextView.st	Tue Mar 06 16:09:54 2007 +0100
@@ -1249,7 +1249,7 @@
 
     |sel ch matchCol scanCol fwdScan fwdSelect|
 
-    self class st80SelectMode ifTrue:[
+    self st80SelectMode ifTrue:[
         "/ st80 selects:
         "/   if clicked right after a parenthesis -> select to matching parenthesis
         "/   if clicked at beginning of the line  -> select that line
@@ -3862,11 +3862,16 @@
 !
 
 st80SelectMode
-    ^ st80SelectMode ? UserPreferences current st80SelectMode
+    st80SelectMode notNil ifTrue:[^ st80SelectMode].
+    ^ self class st80SelectMode
 
     "Created: / 03-07-2006 / 16:30:59 / cg"
 !
 
+st80SelectMode:aBoolean
+    st80SelectMode := aBoolean
+!
+
 unselect
     "unselect - if there was a selection redraw that area"
 
@@ -3928,7 +3933,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.276 2007-02-05 09:59:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.277 2007-03-06 15:09:54 cg Exp $'
 ! !
 
 TextView initialize!