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