--- a/TextView.st	Tue Jun 08 20:10:20 2004 +0200
+++ b/TextView.st	Wed Jun 09 11:43:24 2004 +0200
@@ -1285,14 +1285,14 @@
     dragIsActive := false.
     sensor       := self sensor.
 
-    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:[
+        sensor shiftDown ifTrue:[
+            "mouse-click with shift - adding to selection"
+
+            "very simple - just simulate a move"
+            ^ self buttonMotion:(device button1MotionMask) x:x y:y
+        ].
+
         clickVisibleLine := self visibleLineOfY:y.
         clickPos := x @ y.
         clickCol := self colOfX:x inVisibleLine:clickVisibleLine.
@@ -3834,7 +3834,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.244 2004-03-15 16:45:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.245 2004-06-09 09:43:24 cg Exp $'
 ! !
 
 TextView initialize!