--- a/DragAndDropManager.st	Thu Aug 23 00:07:47 2001 +0200
+++ b/DragAndDropManager.st	Thu Aug 23 13:19:16 2001 +0200
@@ -854,7 +854,7 @@
                                 cursor := dragView cursor.
                                 hX := cursor hotX.
                                 hY := cursor hotY.
-                                pDraw := p - (hX@hY) + cursor extent.
+                                pDraw := p "- (hX@hY) + cursor extent".
                                 dispObjs do:[:el| (el at:1) displayOn:v 
                                                             at:pDraw + (el at:2)
                                             ] 
@@ -1043,6 +1043,9 @@
 
     device := dragView device.
     point  := self translatePointToScreen:(x @ y) from:dragView.
+"/    cursor := dragView cursor.
+"/    point := point + (cursor hotX @ cursor hotY).
+
     oldWg  := dropContext targetWidget.
     oldId  := dropContext targetId.
     oldPt  := dropContext rootPoint.
@@ -1356,6 +1359,6 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.31 2001-08-15 12:52:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.32 2001-08-23 11:19:16 cg Exp $'
 ! !
 DragAndDropManager initialize!