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