ImageView.st
changeset 5616 4ff2c28c261c
parent 5615 38692913900c
child 5688 00641931349b
--- a/ImageView.st	Wed Oct 04 16:44:14 2017 +0200
+++ b/ImageView.st	Thu Oct 05 13:56:32 2017 +0200
@@ -850,28 +850,29 @@
 buttonMotion:state x:x y:y
     |delta mousePoint lastPoint|
 
-    (lastPoint := lastMousePoint value) notNil ifTrue:[
+    (state ~~ 0 and:[(lastPoint := lastMousePoint value) notNil]) ifTrue:[
         mousePoint := (x@y).
         delta := mousePoint - lastPoint.
         delta ~= (0@0) ifTrue:[
-            self scrollTo:(self viewOrigin - delta).
-            lastMousePoint value:mousePoint.
+            "/ lastMousePoint value:mousePoint.
+            self scrollTo:(self viewOrigin - delta) "/ waitForDrawingFinished:true.
         ]
     ] ifFalse:[
         super buttonMotion:state x:x y:y
     ]
 
-    "Modified: / 25-02-2017 / 22:34:51 / cg"
+    "Modified: / 05-10-2017 / 13:54:48 / cg"
 !
 
 buttonPress:button x:x y:y
     button == 1 ifTrue:[
         "self cursor:(Cursor handGrab). "
         lastMousePoint value:( x@y ).
+        "/ self sensor compressMotionEvents:true.
     ].
     super buttonPress:button x:x y:y
 
-    "Modified: / 25-02-2017 / 22:35:12 / cg"
+    "Modified: / 05-10-2017 / 13:56:06 / cg"
 !
 
 buttonRelease:button x:x y:y