MenuEditor.st
changeset 775 0ead717f3e35
parent 764 5722b94330ef
child 804 b66537045e04
equal deleted inserted replaced
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|