--- a/ObjectView.st Fri Sep 17 15:54:09 2004 +0200
+++ b/ObjectView.st Fri Sep 17 23:37:11 2004 +0200
@@ -1345,12 +1345,13 @@
]
!
-buttonMotion:buttonMask x:buttX y:buttY
+buttonMotion:buttonState x:buttX y:buttY
"user moved mouse while button pressed"
|xpos ypos movePoint limitW limitH|
"is it the select or 1-button ?"
+ buttonState == 0 ifTrue:[^ self].
self sensor leftButtonPressed ifFalse:[^ self].
lastButt notNil ifTrue:[
@@ -1392,7 +1393,7 @@
].
lastButt := movePoint
].
- super buttonMotion:buttonMask x:buttX y:buttY
+ super buttonMotion:buttonState x:buttX y:buttY
"Modified: / 28.7.1998 / 16:01:31 / cg"
!
@@ -3359,5 +3360,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.104 2004-07-02 09:10:31 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.105 2004-09-17 21:37:11 cg Exp $'
! !