--- a/UIPainterView.st	Mon Jan 09 11:38:28 2006 +0100
+++ b/UIPainterView.st	Tue Jan 10 14:32:38 2006 +0100
@@ -493,11 +493,11 @@
 
 !UIPainterView methodsFor:'drag & drop'!
 
-canDrop:something
+canDrop:aCollectionOfDropObjects
     "returns true if something can be dropped"
 
-    (something size == 1 and:[self enabled and:[self numberOfSelections <= 1]]) ifTrue:[
-        ^ something first theObject isKindOf:UISpecification
+    (aCollectionOfDropObjects size == 1 and:[self enabled and:[self numberOfSelections <= 1]]) ifTrue:[
+        ^ aCollectionOfDropObjects first theObject isKindOf:UISpecification
     ].
     ^ false
 !
@@ -543,30 +543,30 @@
     ^ aView specClass supportsSubComponents.
 !
 
-drop:anObjectOrCollection at:aPoint
+drop:aCollectionOfDropObjects at:aPoint
     |spec newSel oldSel dragOffset widg doit|
 
     doit := true.
     self selection notNil ifTrue:[
-	oldSel := self singleSelection.
-
-	"/ search selections hierarchy for a widget into which we can paste
-	widg := oldSel.
-	[widg isNil or:[self canPasteInto:widg]] whileFalse:[
-	    widg notNil ifTrue:[
-		widg := widg container
-	    ].
-	].
-
-	oldSel := nil.
-	self setSelection:widg withRedraw:true.
+        oldSel := self singleSelection.
+
+        "/ search selections hierarchy for a widget into which we can paste
+        widg := oldSel.
+        [widg isNil or:[self canPasteInto:widg]] whileFalse:[
+            widg notNil ifTrue:[
+                widg := widg container
+            ].
+        ].
+
+        oldSel := nil.
+        self setSelection:widg withRedraw:true.
     ].
-    spec := (anObjectOrCollection at:1) theObject.
+    spec := (aCollectionOfDropObjects at:1) theObject.
     doit ifTrue:[
-	dragOffset := DragAndDropManager dragOffsetQuerySignal query.
-	newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset.
-
-	self select:(oldSel ? newSel)
+        dragOffset := DragAndDropManager dragOffsetQuerySignal query.
+        newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset.
+
+        self select:(oldSel ? newSel)
     ].
 
     "Modified: / 18.3.1999 / 18:29:43 / stefan"