equal
deleted
inserted
replaced
5283 |
5283 |
5284 (newSel := painter pasteSpecifications:aSpec keepLayout:false at:0@0) notNil |
5284 (newSel := painter pasteSpecifications:aSpec keepLayout:false at:0@0) notNil |
5285 ifTrue:[ |
5285 ifTrue:[ |
5286 painter select: newSel |
5286 painter select: newSel |
5287 ] ifFalse:[ |
5287 ] ifFalse:[ |
5288 ((treeView selection size = 0) or: [treeView selectedNode isNil]) |
5288 ((treeView selection size == 0) or: [treeView selectedNode isNil]) ifTrue:[ |
5289 ifTrue:[ |
|
5290 treeView selection: #(1). |
5289 treeView selection: #(1). |
5291 ] ifFalse:[ |
5290 ] ifFalse:[ |
5292 treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent]) |
5291 treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent]) |
5293 ]. |
5292 ]. |
5294 self addWidgetOfSpec: aSpec |
5293 self addWidgetOfSpec: aSpec |