equal
deleted
inserted
replaced
2378 ^ TreeItem name:aLabel contents:(MenuEditor::Item new label:aLabel). |
2378 ^ TreeItem name:aLabel contents:(MenuEditor::Item new label:aLabel). |
2379 ! ! |
2379 ! ! |
2380 |
2380 |
2381 !MenuEditor::Painter methodsFor:'selection'! |
2381 !MenuEditor::Painter methodsFor:'selection'! |
2382 |
2382 |
2383 selectNode:aNode |
|
2384 "change selection to a node |
|
2385 " |
|
2386 self selection:(listOfNodes findFirst:[:el| el == aNode]) |
|
2387 ! |
|
2388 |
|
2389 selectedNodeChanged |
2383 selectedNodeChanged |
2390 |node name index| |
2384 |node name index| |
2391 |
2385 |
2392 (index := self selectedIndex) ~~ 0 ifTrue:[ |
2386 (index := self selectedIndex) ~~ 0 ifTrue:[ |
2393 node := listOfNodes at:index. |
2387 node := listOfNodes at:index. |