diff -r cb9832e71cae -r 695f10f213d1 MenuEditor.st
--- 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