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