equal
deleted
inserted
replaced
344 specs := coll collect:[:aView| self fullSpecFor:aView ]. |
344 specs := coll collect:[:aView| self fullSpecFor:aView ]. |
345 ^ Array with: coll with: specs |
345 ^ Array with: coll with: specs |
346 ! |
346 ! |
347 |
347 |
348 pasteBuffer |
348 pasteBuffer |
349 "add the objects in the paste-buffer to the object view" |
349 "add the objects in the paste-buffer to the object view; |
350 |
350 don't change the layout if more than a single item has been selected" |
351 |sel| |
351 |
352 |
352 |sel clipboard| |
353 sel := self pasteSpecifications:(self getClipboardObject) keepLayout:false. |
353 |
|
354 clipboard := self getClipboardObject. |
|
355 sel := self pasteSpecifications:clipboard keepLayout:(clipboard size > 1). |
354 self changeSelectionAfterPasteOf:sel. |
356 self changeSelectionAfterPasteOf:sel. |
355 ! |
357 ! |
356 |
358 |
357 pasteKeepingPosition |
359 pasteKeepingPosition |
358 "add the objects in the paste-buffer to the object view; |
360 "add the objects in the paste-buffer to the object view; |
506 ^ newSel |
508 ^ newSel |
507 |
509 |
508 "Modified: / 10.10.2001 / 14:15:12 / cg" |
510 "Modified: / 10.10.2001 / 14:15:12 / cg" |
509 ! |
511 ! |
510 |
512 |
511 pasteWithLayout |
513 pasteWithoutLayout |
512 "add the objects in the paste-buffer to the object view; |
514 "add the objects in the paste-buffer to the object view" |
513 don't change the layout" |
|
514 |
515 |
515 |sel| |
516 |sel| |
516 |
517 |
517 sel := self pasteSpecifications:(self getClipboardObject) keepLayout:true. |
518 sel := self pasteSpecifications:(self getClipboardObject) keepLayout:false. |
518 self changeSelectionAfterPasteOf:sel. |
519 self changeSelectionAfterPasteOf:sel. |
519 ! |
520 ! |
520 |
521 |
521 replaceSelectionBy:aNewSpec |
522 replaceSelectionBy:aNewSpec |
522 "replace the selected widget by another one." |
523 "replace the selected widget by another one." |