drag and drop cleanup
authorClaus Gittinger <cg@exept.de>
Fri, 13 Oct 2006 18:24:00 +0200
changeset 2259 76b190967964
parent 2258 bb57190f8205
child 2260 6bd7e8101386
drag and drop cleanup
DragAndDropManager.st
--- a/DragAndDropManager.st	Fri Oct 13 18:23:50 2006 +0200
+++ b/DragAndDropManager.st	Fri Oct 13 18:24:00 2006 +0200
@@ -1448,15 +1448,18 @@
         view := aView.
         dobj := dropContext dropObjects.
         [   
-            (view canDrop:dropContext "dobj") ifTrue:[
+            (view canDrop:dropContext) ifTrue:[
                 ^ DropTarget receiver:self argument:view dropSelector:#doDrop:in:.
             ].
+            (view canDropObjects:dobj) ifTrue:[
+                ^ (DropTarget receiver:view argument:nil dropSelector:#dropObjects:at:) oldDropAPI:true.
+            ].
             (view := view superView) notNil
         ] whileTrue.
     ].
     ^ nil
 
-    "Modified: / 13-10-2006 / 17:50:32 / cg"
+    "Modified: / 13-10-2006 / 18:21:43 / cg"
 !
 
 doStart:aHandler for:aView atEnd:aFourArgEndBlock
@@ -1570,7 +1573,7 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.72 2006-10-13 15:57:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.73 2006-10-13 16:24:00 cg Exp $'
 ! !
 
 DragAndDropManager initialize!