# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1160755088 -7200
# Node ID be5e920d6158480707ed514dec653d39f8dece3a
# Parent  eca72652fa9e28bcbcaf0bacc93dcfd2eae4380b
drag and drop cleanup

diff -r eca72652fa9e -r be5e920d6158 UISelectionPanel.st
--- 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