Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use another left-button-down test in #buttonMotion.
authorClaus Gittinger <cg@exept.de>
Tue, 28 Jul 1998 16:10:07 +0200
changeset 1622 50dd1ee1604a
parent 1621 fa41bbb0d4f2
child 1623 1fde415aabf3
use another left-button-down test in #buttonMotion.
ObjView.st file | annotate | diff | comparison | revisions
ObjectView.st file | annotate | diff | comparison | revisions 
--- a/ObjView.st	Tue Jul 28 16:08:55 1998 +0200
+++ b/ObjView.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/Attic/ObjView.st,v 1.60 1998-04-20 23:36:22 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.61 1998-07-28 14:10:07 cg Exp $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg