# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1160756640 -7200
# Node ID 76b1909679644f1c35307c377b804228c687ee2a
# Parent  bb57190f82057e4934c0ae49537cb48c02050690
drag and drop cleanup

diff -r bb57190f8205 -r 76b190967964 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!