--- a/DragAndDropManager.st Mon Feb 22 09:32:15 2010 +0100
+++ b/DragAndDropManager.st Tue Mar 02 11:26:40 2010 +0100
@@ -1585,8 +1585,11 @@
].
view application ~~ app ifTrue:[
app := view application.
- (app canDropObjects:dobj) ifTrue:[
- ^ (DropTarget receiver:app argument:nil dropSelector:#dropObjects:at:) oldDropAPI:true.
+
+ app notNil ifTrue:[
+ (app canDropObjects:dobj) ifTrue:[
+ ^ (DropTarget receiver:app argument:nil dropSelector:#dropObjects:at:) oldDropAPI:true.
+ ].
].
].
(view := view superView) notNil
@@ -1711,11 +1714,11 @@
!DragAndDropManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.88 2010-02-08 12:03:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.89 2010-03-02 10:26:40 ca Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.88 2010-02-08 12:03:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.89 2010-03-02 10:26:40 ca Exp $'
! !
DragAndDropManager initialize!