changeset 775 | 0ead717f3e35 |
parent 764 | 5722b94330ef |
child 804 | b66537045e04 |
774:5ca0853de0bc | 775:0ead717f3e35 |
---|---|
2406 |
2406 |
2407 firstNode expand. |
2407 firstNode expand. |
2408 model root: firstNode. |
2408 model root: firstNode. |
2409 |
2409 |
2410 firstNode hasChildren ifFalse:[ |
2410 firstNode hasChildren ifFalse:[ |
2411 |firstChildNode| |
2411 model add:(self nodeLabel:'Item 1') below:firstNode |
2412 firstChildNode := self nodeLabel:'Item 1'. |
|
2413 firstChildNode parent: firstNode. |
|
2414 firstNode add: firstChildNode. |
|
2415 model recomputeList |
|
2416 ]. |
2412 ]. |
2417 |
2413 |
2418 |
2414 |
2419 ! |
2415 ! |
2420 |
2416 |
2429 node hasChildren ifFalse:[ |
2425 node hasChildren ifFalse:[ |
2430 node add:(self nodeLabel:'Item 1') |
2426 node add:(self nodeLabel:'Item 1') |
2431 ]. |
2427 ]. |
2432 node expand. |
2428 node expand. |
2433 model root:node. |
2429 model root:node. |
2434 |
|
2435 model recomputeList |
|
2436 ! |
2430 ! |
2437 |
2431 |
2438 menuItem:anItem |
2432 menuItem:anItem |
2439 |
2433 |
2440 |node| |
2434 |node| |