equal
deleted
inserted
replaced
366 self selection:container. |
366 self selection:container. |
367 ]. |
367 ]. |
368 ]. |
368 ]. |
369 |
369 |
370 (self canPaste:aSpecificationOrList) ifFalse:[ |
370 (self canPaste:aSpecificationOrList) ifFalse:[ |
|
371 Dialog warn:'Cannot paste into selected component (not a container ?)'. |
371 ^ nil |
372 ^ nil |
372 ]. |
373 ]. |
373 |
374 |
374 aSpecificationOrList isCollection ifTrue:[ |
375 aSpecificationOrList isCollection ifTrue:[ |
375 paste := aSpecificationOrList |
376 paste := aSpecificationOrList |