SelectionInListView.st
changeset 3040 f5e9092f3312
parent 2998 6f1925bccf54
child 3124 4dc312205681
--- a/SelectionInListView.st	Fri Sep 17 23:37:11 2004 +0200
+++ b/SelectionInListView.st	Fri Sep 17 23:49:27 2004 +0200
@@ -2192,7 +2192,7 @@
     "Modified: / 8.8.1998 / 03:24:03 / cg"
 !
 
-buttonMotion:buttonMask x:x y:y
+buttonMotion:buttonState x:x y:y
     "mouse-move while button was pressed - handle selection changes"
 
     (enabled not or:[dragIsActive]) ifTrue:[
@@ -2200,6 +2200,7 @@
     ].
 
     "is it the select or 1-button ?"
+    buttonState == 0 ifTrue:[^ self].
     self sensor leftButtonPressed ifFalse:[^ self].
 
     clickLine isNil ifTrue:[^ self].
@@ -3979,5 +3980,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.224 2004-06-16 17:35:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.225 2004-09-17 21:49:05 cg Exp $'
 ! !