equal
deleted
inserted
replaced
205 sel := self pasteSpecifications:(self getSelection) keepLayout:false. |
205 sel := self pasteSpecifications:(self getSelection) keepLayout:false. |
206 |
206 |
207 sel notNil ifTrue:[ |
207 sel notNil ifTrue:[ |
208 self select:sel. |
208 self select:sel. |
209 ]. |
209 ]. |
|
210 |
|
211 ! |
|
212 |
|
213 pasteFromClipBoard:aString |
|
214 ^ self |
|
215 |
210 |
216 |
211 ! |
217 ! |
212 |
218 |
213 pasteSpecifications:aSpecificationOrList keepLayout:keepLayout |
219 pasteSpecifications:aSpecificationOrList keepLayout:keepLayout |
214 "add the specs to the object view; returns list of pasted components |
220 "add the specs to the object view; returns list of pasted components |