--- a/MenuEditor.st Thu Dec 04 17:54:45 2003 +0100
+++ b/MenuEditor.st Fri Dec 19 13:33:44 2003 +0100
@@ -945,63 +945,55 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #file
- #label: '&File'
- #translateLabel: true
- #submenuChannel: #fileMenu
- #keepLinkedMenu: true
+ #(Menu
+ (
+ (MenuItem
+ label: '&File'
+ translateLabel: true
+ submenuChannel: fileMenu
+ keepLinkedMenu: true
)
- #(#MenuItem
- #activeHelpKey: #edit
- #label: '&Edit'
- #translateLabel: true
- #submenuChannel: #editMenu
- #keepLinkedMenu: true
+ (MenuItem
+ label: '&Edit'
+ translateLabel: true
+ submenuChannel: editMenu
+ keepLinkedMenu: true
)
- #(#MenuItem
- #activeHelpKey: #add
- #enabled: #hasSingleSelectionChannel
- #label: 'Item'
- #translateLabel: true
- #submenuChannel: #addMenu
- #keepLinkedMenu: true
+ (MenuItem
+ enabled: hasSingleSelectionChannel
+ label: 'Item'
+ translateLabel: true
+ submenuChannel: addMenu
+ keepLinkedMenu: true
)
- #(#MenuItem
- #activeHelpKey: #generate
- #label: 'Generate'
- #translateLabel: true
- #submenuChannel: #generateMenu
- #keepLinkedMenu: true
+ (MenuItem
+ label: 'Generate'
+ translateLabel: true
+ submenuChannel: generateMenu
+ keepLinkedMenu: true
)
- #(#MenuItem
- #activeHelpKey: #test
- #label: 'Test'
- #translateLabel: true
- #submenuChannel: #submenuTest
+ (MenuItem
+ label: 'Test'
+ translateLabel: true
+ submenuChannel: submenuTest
)
- #(#MenuItem
- #activeHelpKey: #settings
- #label: 'Settings'
- #translateLabel: true
- #submenuChannel: #settingsMenu
- #keepLinkedMenu: true
+ (MenuItem
+ label: 'Settings'
+ translateLabel: true
+ submenuChannel: settingsMenu
+ keepLinkedMenu: true
)
- #(#MenuItem
- #activeHelpKey: #history
- #label: 'History'
- #translateLabel: true
- #submenuChannel: #menuHistory
+ (MenuItem
+ label: 'History'
+ translateLabel: true
+ submenuChannel: menuHistory
)
- #(#MenuItem
- #activeHelpKey: #help
- #label: '&Help'
- #translateLabel: true
- #startGroup: #right
- #submenuChannel: #helpMenu
- #keepLinkedMenu: true
+ (MenuItem
+ label: '&Help'
+ translateLabel: true
+ startGroup: right
+ submenuChannel: helpMenu
+ keepLinkedMenu: true
)
)
nil