--- a/UISelectionPanel.st Fri Oct 13 13:07:20 2006 +0200
+++ b/UISelectionPanel.st Fri Oct 13 17:58:08 2006 +0200
@@ -9,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libtool2' }"
ApplicationModel subclass:#UISelectionPanel
@@ -1603,8 +1600,10 @@
!UISelectionPanel methodsFor:'drag & drop'!
-canDrop:aCollectionOfDropObjects in:aComponent
+canDropObjects:aCollectionOfDropObjects in:aComponent
^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]).
+
+ "Created: / 13-10-2006 / 15:53:04 / cg"
!
drop:aCollectionOfDropObjects in:aComponent at:aPoint