--- a/Tools__InternationalLanguageTranslationEditor.st Mon Feb 13 23:20:25 2012 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st Tue Feb 14 09:18:23 2012 +0100
@@ -873,6 +873,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#menuToolBar
(Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menuToolBar)) startUp
@@ -880,53 +881,58 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'Save'
- itemValue: menuSave
- translateLabel: true
- labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Add Translation'
- itemValue: addTranslation
- translateLabel: true
- labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
- )
- (MenuItem
- label: 'Remove Translation'
- itemValue: removeTranslation
- translateLabel: true
- labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Search'
- itemValue: search
- translateLabel: true
- shortcutKey: Ctrlf
- labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
- )
- (MenuItem
- label: ''
- )
- (MenuItem
- label: 'Stop Application'
- itemValue: stopApplication
- translateLabel: true
- isVisible: stopApplicationIconVisibleHolder
- labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'Save'
+ itemValue: menuSave
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Add Translation'
+ itemValue: addTranslation
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
+ )
+ (MenuItem
+ label: 'Remove Translation'
+ itemValue: removeTranslation
+ translateLabel: true
+ isButton: true
+ labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Search'
+ itemValue: search
+ translateLabel: true
+ isButton: true
+ shortcutKey: Ctrlf
+ labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
+ )
+ (MenuItem
+ label: ''
+ )
+ (MenuItem
+ label: 'Stop Application'
+ itemValue: stopApplication
+ translateLabel: true
+ isButton: true
+ isVisible: stopApplicationIconVisibleHolder
+ labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
+ )
+ )
+ nil
+ nil
)
! !