--- a/ApplicationModel.st Wed Oct 22 01:08:23 2008 +0200
+++ b/ApplicationModel.st Sun Oct 26 13:09:13 2008 +0100
@@ -1794,13 +1794,18 @@
!ApplicationModel methodsFor:'drag & drop'!
-canDropObjects:aCollectionOfDropObjects in:aComponent
+canDropObjects:aCollectionOfDropObjects
"drop manager asked if a drop is possible
- should be redefined by apps which can do it, to return true"
^ false
-
- "Created: / 13-10-2006 / 15:52:31 / cg"
+!
+
+canDropObjects:aCollectionOfDropObjects in:aComponent
+ "drop manager asked if a drop is possible
+ - should be redefined by apps which can do it, to return true"
+
+ ^ self canDropObjects:aCollectionOfDropObjects
!
canDropObjects:aCollectionOfDropObjects in:aComponent at:position
@@ -1812,7 +1817,7 @@
"Created: / 13-10-2006 / 15:52:20 / cg"
!
-dropObjects:aCollectionOfDropObjects in:aComponent
+dropObjects:aCollectionOfDropObjects
"drop manager wants to drop.
This is ony sent, if #canDrop: returned true.
Must be redefine in order for drop to work."
@@ -1822,12 +1827,21 @@
"Created: / 13-10-2006 / 18:25:06 / cg"
!
+dropObjects:aCollectionOfDropObjects in:aComponent
+ "drop manager wants to drop.
+ This is ony sent, if #canDrop: returned true.
+ Must be redefine in order for drop to work."
+
+ ^ self dropObjects:aCollectionOfDropObjects
+
+!
+
dropObjects:aCollectionOfDropObjects in:aComponent at:aPoint
"drop manager wants to drop.
This is ony sent, if #canDrop:in: returned true.
Can be redefined in apps which return true to #canDrop."
- self dropObjects:aCollectionOfDropObjects in:aComponent
+ ^ self dropObjects:aCollectionOfDropObjects in:aComponent
"Created: / 13-10-2006 / 18:25:13 / cg"
! !
@@ -3410,7 +3424,7 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.269 2008-10-21 23:08:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.270 2008-10-26 12:09:13 cg Exp $'
! !
ApplicationModel initialize!