--- a/ObjectView.st Tue Jul 28 16:08:55 1998 +0200
+++ b/ObjectView.st Tue Jul 28 16:10:07 1998 +0200
@@ -1174,11 +1174,12 @@
|xpos ypos movePoint limitW limitH|
"is it the select or 1-button ?"
- (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
- (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
- ^ self
- ].
- ].
+ self sensor leftButtonPressed ifFalse:[^ self].
+"/ (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
+"/ (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
+"/ ^ self
+"/ ].
+"/ ].
lastButt notNil ifTrue:[
xpos := buttX.
@@ -1221,7 +1222,7 @@
].
super buttonMotion:buttonMask x:buttX y:buttY
- "Modified: 30.5.1996 / 17:57:30 / cg"
+ "Modified: / 28.7.1998 / 16:01:31 / cg"
!
buttonMultiPress:button x:x y:y
@@ -2934,5 +2935,5 @@
!ObjectView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.60 1998-04-20 23:36:22 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.61 1998-07-28 14:10:07 cg Exp $'
! !