--- a/TextView.st	Thu Dec 15 22:43:39 2005 +0100
+++ b/TextView.st	Wed Dec 21 11:26:24 2005 +0100
@@ -1070,16 +1070,12 @@
      movedUp 
      oldStartLine oldEndLine oldStartCol oldEndCol|
 
-    clickLine isNil ifTrue:[
+    (clickLine isNil or:[clickPos isNil]) ifTrue:[
         dragIsActive := false.
         ^ self
     ].
 
     dragIsActive ifTrue:[
-        clickPos ifNil:[
-            dragIsActive := false.
-          ^ self
-        ].
         (clickPos dist:(x@y)) >= 5.0 ifTrue:[
             dragIsActive := false.
 
@@ -1126,7 +1122,7 @@
     autoScrollBlock notNil ifTrue:[
         self stopScrollSelect
     ].
-
+'m' printCR.
     movedVisibleLine := self visibleLineOfY:y.
     movedLine := self visibleLineToAbsoluteLine:movedVisibleLine.
 
@@ -1269,6 +1265,7 @@
     "multi-mouse-click - select word under pointer"
 
     ((button == 1) or:[button == #select]) ifTrue:[
+        clickPos := x @ y.
         self clearSearchAction.
 
         clickCount notNil ifTrue:[
@@ -1297,6 +1294,7 @@
 
     |sensor clickVisibleLine|
 
+'p' printCR.
     dragIsActive := false.
     sensor       := self sensor.
 
@@ -1334,6 +1332,7 @@
 buttonRelease:button x:x y:y
     "mouse- button release - turn off autoScroll if any"
 
+'r' printCR.
     ((button == 1) or:[button == #select]) ifTrue:[
         autoScrollBlock notNil ifTrue:[
             self stopScrollSelect
@@ -1342,7 +1341,6 @@
             self unselect
         ].
         clickPos := nil.
-
     ] ifFalse:[
         super buttonRelease:button x:x y:y
     ].
@@ -3849,7 +3847,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.253 2005-11-22 12:44:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.254 2005-12-21 10:26:24 cg Exp $'
 ! !
 
 TextView initialize!