equal
deleted
inserted
replaced
426 containerToPasteInto isNil ifTrue:[ |
426 containerToPasteInto isNil ifTrue:[ |
427 containerToPasteInto := self |
427 containerToPasteInto := self |
428 ]. |
428 ]. |
429 |
429 |
430 (self canPaste:aSpecificationOrList into:containerToPasteInto) |
430 (self canPaste:aSpecificationOrList into:containerToPasteInto) |
431 "(self canPaste:aSpecificationOrList)" |
|
432 ifFalse:[ |
431 ifFalse:[ |
433 self halt. |
|
434 (self canPaste:aSpecificationOrList into:containerToPasteInto). |
|
435 Dialog warn:'Cannot paste into selected component (not a container ?)'. |
432 Dialog warn:'Cannot paste into selected component (not a container ?)'. |
436 ^ nil |
433 ^ nil |
437 ]. |
434 ]. |
438 |
435 |
439 aSpecificationOrList isCollection ifTrue:[ |
436 aSpecificationOrList isCollection ifTrue:[ |