equal
deleted
inserted
replaced
813 ! |
813 ! |
814 |
814 |
815 buttonPress:button x:x y:y |
815 buttonPress:button x:x y:y |
816 "mouse-click - prepare for selection change" |
816 "mouse-click - prepare for selection change" |
817 |
817 |
818 |clickVisibleLine| |
818 |sensor clickVisibleLine| |
819 |
819 |
820 self sensor shiftDown ifTrue:[ |
820 sensor := self sensor. |
|
821 (sensor notNil and:[ sensor shiftDown]) ifTrue:[ |
821 "mouse-click with shift - adding to selection" |
822 "mouse-click with shift - adding to selection" |
822 |
823 |
823 "very simple - just simulate a move" |
824 "very simple - just simulate a move" |
824 ^ self buttonMotion:(device button1MotionMask) x:x y:y |
825 ^ self buttonMotion:(device button1MotionMask) x:x y:y |
825 ]. |
826 ]. |
834 clickCount := 1 |
835 clickCount := 1 |
835 ] ifFalse:[ |
836 ] ifFalse:[ |
836 super buttonPress:button x:x y:y |
837 super buttonPress:button x:x y:y |
837 ] |
838 ] |
838 |
839 |
839 "Modified: 1.8.1996 / 17:59:17 / cg" |
840 "Modified: 19.8.1997 / 17:01:15 / cg" |
840 ! |
841 ! |
841 |
842 |
842 buttonRelease:button x:x y:y |
843 buttonRelease:button x:x y:y |
843 "mouse- button release - turn off autoScroll if any" |
844 "mouse- button release - turn off autoScroll if any" |
844 |
845 |
2507 ! ! |
2508 ! ! |
2508 |
2509 |
2509 !TextView class methodsFor:'documentation'! |
2510 !TextView class methodsFor:'documentation'! |
2510 |
2511 |
2511 version |
2512 version |
2512 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.100 1997-08-14 15:12:10 cg Exp $' |
2513 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.101 1997-08-19 15:03:34 cg Exp $' |
2513 ! ! |
2514 ! ! |