equal
deleted
inserted
replaced
503 |
503 |
504 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
504 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
505 ^ newSel |
505 ^ newSel |
506 |
506 |
507 "Modified: / 10.10.2001 / 14:15:12 / cg" |
507 "Modified: / 10.10.2001 / 14:15:12 / cg" |
|
508 ! |
|
509 |
|
510 pasteWithLayout |
|
511 "add the objects in the paste-buffer to the object view" |
|
512 |
|
513 |sel| |
|
514 |
|
515 sel := self pasteSpecifications:(self getClipboardObject) keepLayout:true. |
|
516 self changeSelectionAfterPasteOf:sel. |
508 ! |
517 ! |
509 |
518 |
510 pasteWithoutLayout |
519 pasteWithoutLayout |
511 "add the objects in the paste-buffer to the object view" |
520 "add the objects in the paste-buffer to the object view" |
512 |
521 |