DragHandler.st
changeset 4395 fb4106b2ff7a
parent 4394 136d5851f5ba
child 4454 8696125a362f
--- a/DragHandler.st	Fri Nov 15 11:32:27 2019 +0100
+++ b/DragHandler.st	Fri Nov 22 10:44:56 2019 +0100
@@ -340,7 +340,7 @@
     |p point area rootDisplayPoint|
 
     aRootPoint notNil ifTrue:[
-        rootDisplayPoint := Screen transformVirtualDisplayPointToRootDisplayPoint:aRootPoint.
+        rootDisplayPoint := Screen convertVirtualResolutionPointToCurrentResolutionPoint:aRootPoint.
     ].
 
     (saveArea notNil and:[lastRootPoint notNil]) ifTrue:[
@@ -376,6 +376,7 @@
         "/ screen not yet saved; thus we have to save the area
         "/
         p := point  - (self class additionalSaveSize).
+
         saveUnder copyFrom:rootView 
                          x:p x
                          y:p y
@@ -396,11 +397,11 @@
     dragBlock value:(point  - saveArea origin + dragOffset) value:tmpForm.
 
     "if saveArea changed during dragBlock; lock operation"
-    area == saveArea ifTrue:[
+    area == saveArea ifTrue:[               
         rootView copyFrom:tmpForm toX:area left y:area top. 
     ].
 
-    "Modified: / 15-11-2019 / 11:29:22 / Stefan Reise"
+    "Modified: / 22-11-2019 / 10:44:36 / Stefan Reise"
 !
 
 dropTargetWillChange