# HG changeset patch # User Claus Gittinger # Date 1329207503 -3600 # Node ID 263e41303b0a03017ae0ec950520d54f589a6bd7 # Parent 207a5186e62dfdcbd7b974682b0f4e185d1a0dfc x diff -r 207a5186e62d -r 263e41303b0a Tools__InternationalLanguageTranslationEditor.st --- 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 @@ - ^ + ^ #(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 ) ! !