changeset 231 | 75de472d579f |
parent 223 | 203460df426e |
child 238 | 882be7e03af4 |
--- a/UIPainterView.st Mon Jul 21 12:24:17 1997 +0200 +++ b/UIPainterView.st Mon Jul 21 15:27:23 1997 +0200 @@ -337,7 +337,9 @@ drop:anObjectOrCollection at:aPoint |spec newSel oldSel| - oldSel := selection copy. + (oldSel := selection) isCollection ifTrue:[ + oldSel := selection copy + ]. spec := (anObjectOrCollection at:1) theObject. newSel := self pasteSpecifications:spec keepLayout:false.