MenuEditor.st
changeset 441 b16598618359
parent 432 d35dccaa804c
child 455 117dcae8b5e0
equal deleted inserted replaced
440:1198f19712ff 441:b16598618359
   281             )
   281             )
   282              #(#MenuItem
   282              #(#MenuItem
   283                 #'label:' 'File'
   283                 #'label:' 'File'
   284                 #'translateLabel:' true
   284                 #'translateLabel:' true
   285                 #'value:' #file
   285                 #'value:' #file
   286                 #'accessCharacterPosition:' 1
       
   287                 #'submenu:' 
   286                 #'submenu:' 
   288                  #(#Menu
   287                  #(#Menu
   289                     
   288                     
   290                      #(
   289                      #(
   291                        #(#MenuItem
   290                        #(#MenuItem
   347                     nil
   346                     nil
   348                 )
   347                 )
   349             )
   348             )
   350              #(#MenuItem
   349              #(#MenuItem
   351                 #'label:' 'Edit'
   350                 #'label:' 'Edit'
   352                 #'accessCharacterPosition:' 1
       
   353                 #'submenuChannel:' #menuEdit
   351                 #'submenuChannel:' #menuEdit
   354             )
   352             )
   355              #(#MenuItem
   353              #(#MenuItem
   356                 #'label:' 'Test'
   354                 #'label:' 'Test'
   357                 #'accessCharacterPosition:' 1
       
   358                 #'submenuChannel:' #submenuTest
   355                 #'submenuChannel:' #submenuTest
   359             )
   356             )
   360              #(#MenuItem
   357              #(#MenuItem
   361                 #'label:' 'History'
   358                 #'label:' 'History'
   362                 #'accessCharacterPosition:' 2
       
   363                 #'submenuChannel:' #menuHistory
   359                 #'submenuChannel:' #menuHistory
   364             )
   360             )
   365              #(#MenuItem
   361              #(#MenuItem
   366                 #'label:' 'Help'
   362                 #'label:' 'Help'
   367                 #'accessCharacterPosition:' 1
       
   368                 #'submenuChannel:' #menuHelp
   363                 #'submenuChannel:' #menuHelp
   369             )
   364             )
   370           ) nil
   365           ) nil
   371           nil
   366           nil
   372       )
   367       )
  2693     index := self indexOfNode: treeItem.
  2688     index := self indexOfNode: treeItem.
  2694     treeItem name: name.
  2689     treeItem name: name.
  2695     self redrawLine: index.
  2690     self redrawLine: index.
  2696 ! !
  2691 ! !
  2697 
  2692 
       
  2693 !MenuEditor::TreeView methodsFor:'startup / release'!
       
  2694 
       
  2695 destroy
       
  2696     "destroy images"
       
  2697 
       
  2698     super destroy.
       
  2699 
       
  2700     Images := nil
       
  2701 
       
  2702 
       
  2703 ! !
       
  2704 
  2698 !MenuEditor class methodsFor:'documentation'!
  2705 !MenuEditor class methodsFor:'documentation'!
  2699 
  2706 
  2700 version
  2707 version
  2701     ^ '$Header$'
  2708     ^ '$Header$'
  2702 ! !
  2709 ! !