comment/format in: #buttonMotion:x:y:view:
changed: #doFindDropTargetIn:at:
also ask application
--- 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!