Tools__InternationalLanguageTranslationEditor.st
changeset 2880 263e41303b0a
parent 2570 4e663bc64364
child 3077 48211023a3c7
equal deleted inserted replaced
2879:207a5186e62d 2880:263e41303b0a
   871      by the MenuEditor of ST/X."
   871      by the MenuEditor of ST/X."
   872 
   872 
   873     "Do not manually edit this!! If it is corrupted,
   873     "Do not manually edit this!! If it is corrupted,
   874      the MenuEditor may not be able to read the specification."
   874      the MenuEditor may not be able to read the specification."
   875 
   875 
       
   876 
   876     "
   877     "
   877      MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#menuToolBar
   878      MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#menuToolBar
   878      (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menuToolBar)) startUp
   879      (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menuToolBar)) startUp
   879     "
   880     "
   880 
   881 
   881     <resource: #menu>
   882     <resource: #menu>
   882 
   883 
   883     ^
   884     ^ 
   884      #(Menu
   885      #(Menu
   885 	(
   886         (
   886 	 (MenuItem
   887          (MenuItem
   887 	    label: 'Save'
   888             label: 'Save'
   888 	    itemValue: menuSave
   889             itemValue: menuSave
   889 	    translateLabel: true
   890             translateLabel: true
   890 	    labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
   891             isButton: true
   891 	  )
   892             labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
   892 	 (MenuItem
   893           )
   893 	    label: '-'
   894          (MenuItem
   894 	  )
   895             label: '-'
   895 	 (MenuItem
   896           )
   896 	    label: 'Add Translation'
   897          (MenuItem
   897 	    itemValue: addTranslation
   898             label: 'Add Translation'
   898 	    translateLabel: true
   899             itemValue: addTranslation
   899 	    labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
   900             translateLabel: true
   900 	  )
   901             isButton: true
   901 	 (MenuItem
   902             labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
   902 	    label: 'Remove Translation'
   903           )
   903 	    itemValue: removeTranslation
   904          (MenuItem
   904 	    translateLabel: true
   905             label: 'Remove Translation'
   905 	    labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
   906             itemValue: removeTranslation
   906 	  )
   907             translateLabel: true
   907 	 (MenuItem
   908             isButton: true
   908 	    label: '-'
   909             labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
   909 	  )
   910           )
   910 	 (MenuItem
   911          (MenuItem
   911 	    label: 'Search'
   912             label: '-'
   912 	    itemValue: search
   913           )
   913 	    translateLabel: true
   914          (MenuItem
   914 	    shortcutKey: Ctrlf
   915             label: 'Search'
   915 	    labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
   916             itemValue: search
   916 	  )
   917             translateLabel: true
   917 	 (MenuItem
   918             isButton: true
   918 	    label: ''
   919             shortcutKey: Ctrlf
   919 	  )
   920             labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
   920 	 (MenuItem
   921           )
   921 	    label: 'Stop Application'
   922          (MenuItem
   922 	    itemValue: stopApplication
   923             label: ''
   923 	    translateLabel: true
   924           )
   924 	    isVisible: stopApplicationIconVisibleHolder
   925          (MenuItem
   925 	    labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
   926             label: 'Stop Application'
   926 	  )
   927             itemValue: stopApplication
   927 	 )
   928             translateLabel: true
   928 	nil
   929             isButton: true
   929 	nil
   930             isVisible: stopApplicationIconVisibleHolder
       
   931             labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
       
   932           )
       
   933          )
       
   934         nil
       
   935         nil
   930       )
   936       )
   931 ! !
   937 ! !
   932 
   938 
   933 !InternationalLanguageTranslationEditor class methodsFor:'startup'!
   939 !InternationalLanguageTranslationEditor class methodsFor:'startup'!
   934 
   940