# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1151937123 -7200
# Node ID 4c2c30b357c6d58e93713d0651ee6ab4ce868476
# Parent  83c2866e511e23cf95e5228abf1604989892891d
*** empty log message ***

diff -r 83c2866e511e -r 4c2c30b357c6 TextView.st
--- a/TextView.st	Wed Jun 14 14:17:10 2006 +0200
+++ b/TextView.st	Mon Jul 03 16:32:03 2006 +0200
@@ -20,12 +20,13 @@
 		selectStyle directoryForFileDialog defaultFileNameForFileDialog
 		externalEncoding contentsWasSaved searchAction lastSearchPattern
 		lastSearchIgnoredCase lastSearchDirection
-		parenthesisSpecification dropSource dragIsActive saveAction'
+		parenthesisSpecification dropSource dragIsActive saveAction
+		st80SelectMode'
 	classVariableNames:'DefaultViewBackground DefaultSelectionForegroundColor
 		DefaultSelectionBackgroundColor
 		DefaultAlternativeSelectionForegroundColor
 		DefaultAlternativeSelectionBackgroundColor MatchDelayTime
-		WordSelectCatchesBlanks ST80Selections LastSearchPatterns
+		WordSelectCatchesBlanks LastSearchPatterns
 		NumRememberedSearchPatterns LastSearchIgnoredCase
 		DefaultParenthesisSpecification'
 	poolDictionaries:''
@@ -256,15 +257,16 @@
 !
 
 st80SelectMode
-    ^ ST80Selections
-
-    "Modified: / 6.1.1999 / 14:19:26 / cg"
+    ^ UserPreferences current st80SelectMode
+
+    "Modified: / 03-07-2006 / 16:26:44 / cg"
 !
 
 st80SelectMode:aBoolean
-    ST80Selections := aBoolean
-
-    "Created: / 7.1.1999 / 13:35:24 / cg"
+    UserPreferences current st80SelectMode:aBoolean
+
+    "Created: / 07-01-1999 / 13:35:24 / cg"
+    "Modified: / 03-07-2006 / 16:27:01 / cg"
 !
 
 updateStyleCache
@@ -286,9 +288,8 @@
     DefaultFont := StyleSheet fontAt:'textView.font'.
     MatchDelayTime := 0.6.
     WordSelectCatchesBlanks := StyleSheet at:'text.wordSelectCatchesBlanks' default:false.
-    ST80Selections := StyleSheet at:'text.st80Selections' default:false.
-
-    "Modified: / 31.10.1997 / 13:17:16 / cg"
+
+    "Modified: / 03-07-2006 / 16:29:42 / cg"
 ! !
 
 !TextView class methodsFor:'interface specs'!
@@ -1225,7 +1226,7 @@
 
     |sel ch matchCol scanCol fwdScan|
 
-    ST80Selections == true ifTrue:[
+    self class st80SelectMode ifTrue:[
         "/ st80 selects:
         "/   if clicked right after a parenthesis -> select to matching parenthesis
         "/   if clicked at beginning of the line  -> select that line
@@ -1378,8 +1379,8 @@
         wordEndCol := selectionEndCol
     ]
 
-    "Created: 11.9.1997 / 04:12:55 / cg"
-    "Modified: 19.9.1997 / 06:43:10 / cg"
+    "Created: / 11-09-1997 / 04:12:55 / cg"
+    "Modified: / 03-07-2006 / 16:28:08 / cg"
 !
 
 extendSelectionToX:x y:y
@@ -3812,6 +3813,12 @@
     ^ selectionStartLine
 !
 
+st80SelectMode
+    ^ st80SelectMode ? UserPreferences current st80SelectMode
+
+    "Created: / 03-07-2006 / 16:30:59 / cg"
+!
+
 unselect
     "unselect - if there was a selection redraw that area"
 
@@ -3873,7 +3880,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.266 2006-04-18 11:27:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.267 2006-07-03 14:32:03 cg Exp $'
 ! !
 
 TextView initialize!