equal
deleted
inserted
replaced
326 sel := self pasteSpecifications:(self getSelection) keepLayout:false. |
326 sel := self pasteSpecifications:(self getSelection) keepLayout:false. |
327 |
327 |
328 sel notNil ifTrue:[ |
328 sel notNil ifTrue:[ |
329 self select:sel. |
329 self select:sel. |
330 ]. |
330 ]. |
331 |
|
332 ! |
|
333 |
|
334 pasteFromClipBoard:aString |
|
335 ^ self |
|
336 |
|
337 |
331 |
338 ! |
332 ! |
339 |
333 |
340 pasteKeepingPosition |
334 pasteKeepingPosition |
341 "add the objects in the paste-buffer to the object view; |
335 "add the objects in the paste-buffer to the object view; |