equal
deleted
inserted
replaced
335 ! |
335 ! |
336 |
336 |
337 drop:anObjectOrCollection at:aPoint |
337 drop:anObjectOrCollection at:aPoint |
338 |spec newSel oldSel| |
338 |spec newSel oldSel| |
339 |
339 |
340 oldSel := selection copy. |
340 (oldSel := selection) isCollection ifTrue:[ |
|
341 oldSel := selection copy |
|
342 ]. |
341 spec := (anObjectOrCollection at:1) theObject. |
343 spec := (anObjectOrCollection at:1) theObject. |
342 newSel := self pasteSpecifications:spec keepLayout:false. |
344 newSel := self pasteSpecifications:spec keepLayout:false. |
343 |
345 |
344 oldSel isNil ifTrue:[self select:newSel] |
346 oldSel isNil ifTrue:[self select:newSel] |
345 ifFalse:[self select:oldSel] |
347 ifFalse:[self select:oldSel] |