Tools__InternationalLanguageTranslationEditor.st
changeset 3448 e4a15fd6bec5
parent 3447 e82292ff5869
child 3454 5488b2613628
equal deleted inserted replaced
3447:e82292ff5869 3448:e4a15fd6bec5
   591      by the MenuEditor of ST/X."
   591      by the MenuEditor of ST/X."
   592 
   592 
   593     "Do not manually edit this!! If it is corrupted,
   593     "Do not manually edit this!! If it is corrupted,
   594      the MenuEditor may not be able to read the specification."
   594      the MenuEditor may not be able to read the specification."
   595 
   595 
       
   596 
   596     "
   597     "
   597      MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#keyStringAndLanguageSelectionTableMenu
   598      MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#keyStringAndLanguageSelectionTableMenu
   598      (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor keyStringAndLanguageSelectionTableMenu)) startUp
   599      (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor keyStringAndLanguageSelectionTableMenu)) startUp
   599     "
   600     "
   600 
   601 
   601     <resource: #menu>
   602     <resource: #menu>
   602 
   603 
   603     ^
   604     ^ 
   604      #(Menu
   605      #(Menu
   605         (
   606         (
   606          (MenuItem
   607          (MenuItem
   607             label: 'Browse Methods Containing this String'
   608             label: 'Browse Methods Containing this String'
   608             itemValue: browseReferringMethods
   609             itemValue: browseReferringMethods
   609             translateLabel: true
       
   610           )
   610           )
   611          (MenuItem
   611          (MenuItem
   612             label: '-'
   612             label: '-'
   613             isVisible: #false
       
   614           )
   613           )
   615          (MenuItem
   614          (MenuItem
   616             label: 'Set Current NameSpace...'
   615             label: 'Set Current NameSpace...'
   617             itemValue: changeLastNameSpace
   616             itemValue: changeLastNameSpace
   618             translateLabel: true
       
   619           )
   617           )
   620          (MenuItem
   618          (MenuItem
   621             label: 'Search String in Current NameSpace'
   619             label: 'Search String in Current NameSpace'
   622             itemValue: searchStringInLastNameSpace
   620             itemValue: searchStringInLastNameSpace
   623             translateLabel: true
       
   624           )
   621           )
   625          (MenuItem
   622          (MenuItem
   626             label: '-'
   623             label: '-'
   627             isVisible: #false
   624             isVisible: false
   628           )
   625           )
   629          (MenuItem
   626          (MenuItem
   630             label: 'Set Current Package...'
   627             label: 'Set Current Package...'
   631             itemValue: changeLastPackage
   628             itemValue: changeLastPackage
   632             translateLabel: true
   629             isVisible: false
   633             isVisible: #false
       
   634           )
   630           )
   635          (MenuItem
   631          (MenuItem
   636             label: 'Search String in Current Package'
   632             label: 'Search String in Current Package'
   637             itemValue: searchStringInLastPackage
   633             itemValue: searchStringInLastPackage
   638             translateLabel: true
   634             isVisible: false
   639             isVisible: #false
       
   640           )
   635           )
   641          )
   636          )
   642         nil
   637         nil
   643         nil
   638         nil
   644       )
   639       )