--- 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!