# HG changeset patch # User Claus Gittinger # Date 927213858 -7200 # Node ID 27778cfa4bda5ec2b763770be8d4513ca26f1d8d # Parent 3862a49ad52538bd3841fe52728127886c136b1f checkin from browser diff -r 3862a49ad525 -r 27778cfa4bda TextView.st --- a/TextView.st Tue May 18 21:19:59 1999 +0200 +++ b/TextView.st Thu May 20 17:24:18 1999 +0200 @@ -851,39 +851,43 @@ |sensor clickVisibleLine| sensor := self sensor. - (sensor notNil and:[ sensor shiftDown]) ifTrue:[ - "mouse-click with shift - adding to selection" - - "very simple - just simulate a move" - ^ self buttonMotion:(device button1MotionMask) x:x y:y + (sensor notNil and:[sensor shiftDown]) ifTrue:[ + "mouse-click with shift - adding to selection" + + "very simple - just simulate a move" + ^ self buttonMotion:(device button1MotionMask) x:x y:y ]. ((button == 1) or:[button == #select]) ifTrue:[ - clickVisibleLine := self visibleLineOfY:y. - clickPos := x @ y. - clickCol := self colOfX:x inVisibleLine:clickVisibleLine. - clickLine := self visibleLineToAbsoluteLine:clickVisibleLine. - clickStartLine := clickLine. - clickStartCol := clickCol. - self unselect. - clickCount := 1 + clickVisibleLine := self visibleLineOfY:y. + clickPos := x @ y. + clickCol := self colOfX:x inVisibleLine:clickVisibleLine. + clickLine := self visibleLineToAbsoluteLine:clickVisibleLine. + clickStartLine := clickLine. + clickStartCol := clickCol. + self unselect. + clickCount := 1 ] ifFalse:[ - super buttonPress:button x:x y:y + super buttonPress:button x:x y:y ] - "Modified: 19.8.1997 / 17:01:15 / cg" + "Modified: / 20.5.1999 / 17:02:45 / cg" ! buttonRelease:button x:x y:y "mouse- button release - turn off autoScroll if any" ((button == 1) or:[button == #select]) ifTrue:[ - autoScrollBlock notNil ifTrue:[ - self stopScrollSelect - ]. + autoScrollBlock notNil ifTrue:[ + self stopScrollSelect + ]. + clickPos := nil. ] ifFalse:[ - super buttonRelease:button x:x y:y - ] + super buttonRelease:button x:x y:y + ]. + "/ clickPos := clickLine := clickCol := nil. + + "Modified: / 20.5.1999 / 17:14:23 / cg" ! doubleClickX:x y:y @@ -2955,5 +2959,5 @@ !TextView class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.135 1999-05-03 13:29:27 cg Exp $' + ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.136 1999-05-20 15:24:18 cg Exp $' ! !