--- a/DragAndDropManager.st	Fri Feb 05 13:30:07 2010 +0100
+++ b/DragAndDropManager.st	Mon Feb 08 13:03:53 2010 +0100
@@ -1572,7 +1572,7 @@
         ex signal == DragOffsetQuerySignal ifTrue:[ ex proceedWith:dragOffset].
         self error:'unexpected query'.
     ] do:[
-        |view dobj|
+        |view app dobj|
 
         view := aView.
         dobj := dropContext dropObjects.
@@ -1583,6 +1583,12 @@
             (view canDropObjects:dobj) ifTrue:[
                 ^ (DropTarget receiver:view argument:nil dropSelector:#dropObjects:at:) oldDropAPI:true.
             ].
+            view application ~~ app ifTrue:[
+                app := view application.
+                (app canDropObjects:dobj) ifTrue:[
+                    ^ (DropTarget receiver:app argument:nil dropSelector:#dropObjects:at:) oldDropAPI:true.
+                ].
+            ].
             (view := view superView) notNil
         ] whileTrue.
     ].
@@ -1705,11 +1711,11 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.87 2009-10-20 22:23:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.88 2010-02-08 12:03:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.87 2009-10-20 22:23:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.88 2010-02-08 12:03:53 cg Exp $'
 ! !
 
 DragAndDropManager initialize!