equal
deleted
inserted
replaced
385 [containerToPasteInto notNil and:[(self canPasteInto:containerToPasteInto) not]] whileTrue:[ |
385 [containerToPasteInto notNil and:[(self canPasteInto:containerToPasteInto) not]] whileTrue:[ |
386 containerToPasteInto := containerToPasteInto container. |
386 containerToPasteInto := containerToPasteInto container. |
387 ]. |
387 ]. |
388 self selection:containerToPasteInto. |
388 self selection:containerToPasteInto. |
389 ]. |
389 ]. |
|
390 ]. |
|
391 containerToPasteInto isNil ifTrue:[ |
|
392 containerToPasteInto := self |
390 ]. |
393 ]. |
391 |
394 |
392 (self canPaste:aSpecificationOrList) ifFalse:[ |
395 (self canPaste:aSpecificationOrList) ifFalse:[ |
393 Dialog warn:'Cannot paste into selected component (not a container ?)'. |
396 Dialog warn:'Cannot paste into selected component (not a container ?)'. |
394 ^ nil |
397 ^ nil |