equal
deleted
inserted
replaced
2659 ifTrue: |
2659 ifTrue: |
2660 [ |
2660 [ |
2661 treeSelection := treeView selection. |
2661 treeSelection := treeView selection. |
2662 "/ the top-node cannot be cut, copied or pasted. |
2662 "/ the top-node cannot be cut, copied or pasted. |
2663 canCutOrCopy := treeSelection size >= 1 and:[treeSelection first ~~ 1]. |
2663 canCutOrCopy := treeSelection size >= 1 and:[treeSelection first ~~ 1]. |
2664 clipboard := self getSelection. |
2664 clipboard := self getClipboardObject. |
2665 |
2665 |
2666 clipboard isCollection ifTrue:[clipboard notEmpty ifTrue:[sel := clipboard first]] |
2666 clipboard isCollection |
2667 ifFalse:[sel := clipboard]. |
2667 ifTrue:[clipboard notEmpty ifTrue:[sel := clipboard first]] |
|
2668 ifFalse:[sel := clipboard]. |
2668 |
2669 |
2669 canPaste := (sel isKindOf:UISpecification) |
2670 canPaste := (sel isKindOf:UISpecification) |
2670 "/ and:[treeSelection size = 1 |
2671 "/ and:[treeSelection size = 1 |
2671 "/ and:[treeSelection first == 1 |
2672 "/ and:[treeSelection first == 1 |
2672 "/ or: [self canPasteInto: treeView selectedNode contents view]]] |
2673 "/ or: [self canPasteInto: treeView selectedNode contents view]]] |