equal
deleted
inserted
replaced
1247 doubleClickX:x y:y |
1247 doubleClickX:x y:y |
1248 "double-click - select word under pointer" |
1248 "double-click - select word under pointer" |
1249 |
1249 |
1250 |sel ch matchCol scanCol fwdScan fwdSelect| |
1250 |sel ch matchCol scanCol fwdScan fwdSelect| |
1251 |
1251 |
1252 self class st80SelectMode ifTrue:[ |
1252 self st80SelectMode ifTrue:[ |
1253 "/ st80 selects: |
1253 "/ st80 selects: |
1254 "/ if clicked right after a parenthesis -> select to matching parenthesis |
1254 "/ if clicked right after a parenthesis -> select to matching parenthesis |
1255 "/ if clicked at beginning of the line -> select that line |
1255 "/ if clicked at beginning of the line -> select that line |
1256 "/ if clicked at the top of the text -> select all |
1256 "/ if clicked at the top of the text -> select all |
1257 "/ |
1257 "/ |
3860 selectionStartLine |
3860 selectionStartLine |
3861 ^ selectionStartLine |
3861 ^ selectionStartLine |
3862 ! |
3862 ! |
3863 |
3863 |
3864 st80SelectMode |
3864 st80SelectMode |
3865 ^ st80SelectMode ? UserPreferences current st80SelectMode |
3865 st80SelectMode notNil ifTrue:[^ st80SelectMode]. |
|
3866 ^ self class st80SelectMode |
3866 |
3867 |
3867 "Created: / 03-07-2006 / 16:30:59 / cg" |
3868 "Created: / 03-07-2006 / 16:30:59 / cg" |
|
3869 ! |
|
3870 |
|
3871 st80SelectMode:aBoolean |
|
3872 st80SelectMode := aBoolean |
3868 ! |
3873 ! |
3869 |
3874 |
3870 unselect |
3875 unselect |
3871 "unselect - if there was a selection redraw that area" |
3876 "unselect - if there was a selection redraw that area" |
3872 |
3877 |
3926 ! ! |
3931 ! ! |
3927 |
3932 |
3928 !TextView class methodsFor:'documentation'! |
3933 !TextView class methodsFor:'documentation'! |
3929 |
3934 |
3930 version |
3935 version |
3931 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.276 2007-02-05 09:59:55 cg Exp $' |
3936 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.277 2007-03-06 15:09:54 cg Exp $' |
3932 ! ! |
3937 ! ! |
3933 |
3938 |
3934 TextView initialize! |
3939 TextView initialize! |