DragAndDropManager.st
changeset 2255 074d16551e16
parent 2254 b120e73f9a76
child 2259 76b190967964
--- a/DragAndDropManager.st	Fri Oct 13 17:45:19 2006 +0200
+++ b/DragAndDropManager.st	Fri Oct 13 17:57:55 2006 +0200
@@ -1387,7 +1387,9 @@
 
     DragContextQuerySignal answer:aContext do:[
         DragOriginatorQuerySignal answer:dragView do:[
-            DragOffsetQuerySignal answer:dragOffset do:[ |targetWidget targetPoint|
+            DragOffsetQuerySignal answer:dragOffset do:[ 
+                |targetWidget targetPoint|
+
                 targetWidget := aContext targetWidget.
                 targetPoint  := aContext targetPoint.
 
@@ -1411,7 +1413,7 @@
         ].
     ].
 
-    "Modified: / 13-10-2006 / 16:10:56 / cg"
+    "Modified: / 13-10-2006 / 17:52:56 / cg"
 !
 
 doFindDropTargetIn:aView at:aPoint
@@ -1446,13 +1448,15 @@
         view := aView.
         dobj := dropContext dropObjects.
         [   
-            (view canDrop:dobj) ifTrue:[
+            (view canDrop:dropContext "dobj") ifTrue:[
                 ^ DropTarget receiver:self argument:view dropSelector:#doDrop:in:.
             ].
             (view := view superView) notNil
         ] whileTrue.
     ].
     ^ nil
+
+    "Modified: / 13-10-2006 / 17:50:32 / cg"
 !
 
 doStart:aHandler for:aView atEnd:aFourArgEndBlock
@@ -1566,7 +1570,7 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.71 2006-10-13 15:45:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.72 2006-10-13 15:57:55 cg Exp $'
 ! !
 
 DragAndDropManager initialize!