--- a/DragHandler.st	Wed Feb 26 15:05:50 2020 +0100
+++ b/DragHandler.st	Wed Feb 26 17:05:40 2020 +0100
@@ -340,14 +340,14 @@
     |p point area rootDisplayPoint|
 
     aRootPoint notNil ifTrue:[
-        rootDisplayPoint := Screen convertVirtualResolutionPointToCurrentResolutionPoint:aRootPoint.
+        rootDisplayPoint := rootView graphicsDevice convertVirtualResolutionPointToCurrentResolutionPoint:aRootPoint.
     ].
 
-    (saveArea notNil and:[lastRootPoint notNil]) ifTrue:[
-        (lastRootPoint = rootDisplayPoint) ifTrue:[
-            "/ nothing changed
-            ^ self
-        ].
+    (saveArea notNil 
+     and:[lastRootPoint notNil
+     and:[lastRootPoint = rootDisplayPoint]]) ifTrue:[
+        "/ nothing changed
+        ^ self
     ].
 
     lastRootPoint := rootDisplayPoint.