author | ca |
Mon, 21 Jul 1997 15:27:23 +0200 | |
changeset 231 | 75de472d579f |
parent 230 | 60663807d4fd |
child 232 | 4ba88c3270fc |
UIPainterView.st | file | annotate | diff | comparison | revisions |
--- 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.