--- a/DropContext.st	Thu Jun 05 12:38:28 2008 +0200
+++ b/DropContext.st	Thu Jun 05 17:30:14 2008 +0200
@@ -119,7 +119,7 @@
 !
 
 targetPoint
-    "returns the relative point on the target widget (in logical coordinates)"
+    "returns the relative point on the target widget (in DEVICE coordinates)"
 
     |trn org pnt dev|
 
@@ -130,10 +130,10 @@
         (trn := targetWidget transformation) notNil ifTrue:[
             ^ trn applyInverseTo:pnt.
         ].
-
-        (org := targetWidget viewOrigin) notNil ifTrue:[
-            ^ pnt + org.
-        ].
+        "/ ca: do not translate here - drop is in device coordinates EVERYWHERE
+        "/ (org := targetWidget viewOrigin) notNil ifTrue:[
+        "/     ^ pnt + org.
+        "/ ].
     ].
     ^ pnt
 !
@@ -299,5 +299,5 @@
 !DropContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.14 2008-06-05 10:38:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.15 2008-06-05 15:30:14 cg Exp $'
 ! !