UISelectionPanel.st
changeset 1953 3b5022bccca4
parent 1943 ecc231b19955
child 2009 b919406a99f8
--- a/UISelectionPanel.st	Mon Jan 09 11:38:28 2006 +0100
+++ b/UISelectionPanel.st	Tue Jan 10 14:32:38 2006 +0100
@@ -1603,11 +1603,11 @@
 
 !UISelectionPanel methodsFor:'drag & drop'!
 
-canDrop:something in:aComponent
-    ^ self canPaste:(something collect:[:el| el theObject ]).
+canDrop:aCollectionOfDropObjects in:aComponent
+    ^ self canPaste:(aCollectionOfDropObjects collect:[:el| el theObject ]).
 !
 
-drop:something in:aComponent at:aPoint
+drop:aCollectionOfDropObjects in:aComponent at:aPoint
 
     |spc top|
 
@@ -1621,7 +1621,7 @@
             ^ self
         ].
     ] ifFalse:[
-        spc := something collect:[:el| el theObject].
+        spc := aCollectionOfDropObjects collect:[:el| el theObject].
     ].
     self paste:spc.