--- 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!