--- a/MenuEditor.st	Tue Oct 07 23:18:17 2003 +0200
+++ b/MenuEditor.st	Tue Oct 07 23:19:20 2003 +0200
@@ -1100,175 +1100,175 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #activeHelpKey: #fileNew
-            #label: 'New'
-            #itemValue: #doNew
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #newMenu24x24Icon)
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: fileNew
+            label: 'New'
+            itemValue: doNew
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary newMenu24x24Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #fileLoad
-            #label: 'Load'
-            #itemValue: #doLoad
-            #translateLabel: true
-            #isButton: true
-            #submenuChannel: #menuHistory
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #load22x22Icon)
+         (MenuItem
+            activeHelpKey: fileLoad
+            label: 'Load'
+            itemValue: doLoad
+            translateLabel: true
+            isButton: true
+            submenuChannel: menuHistory
+            labelImage: (ResourceRetriever ToolbarIconLibrary load22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #fileSave
-            #label: 'Save'
-            #itemValue: #doSave
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #save22x22Icon)
+         (MenuItem
+            activeHelpKey: fileSave
+            label: 'Save'
+            itemValue: doSave
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #activeHelpKey: #editCut
-            #enabled: #hasSelectionChannel
-            #label: 'Cut'
-            #itemValue: #doCut
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #cut22x22Icon)
+         (MenuItem
+            activeHelpKey: editCut
+            enabled: hasSelectionChannel
+            label: 'Cut'
+            itemValue: doCut
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary cut22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #editCopy
-            #enabled: #hasSelectionChannel
-            #label: 'Copy'
-            #itemValue: #doCopy
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #copy22x22Icon)
+         (MenuItem
+            activeHelpKey: editCopy
+            enabled: hasSelectionChannel
+            label: 'Copy'
+            itemValue: doCopy
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary copy22x22Icon)
           )
-         #(#MenuItem
-            #activeHelpKey: #editPaste
-            #enabled: #valueOfCanPaste
-            #label: 'Paste'
-            #itemValue: #doPaste
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #paste22x22Icon)
+         (MenuItem
+            activeHelpKey: editPaste
+            enabled: valueOfCanPaste
+            label: 'Paste'
+            itemValue: doPaste
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary paste22x22Icon)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #activeHelpKey: #addMenuSeparator
-            #enabled: #hasSingleSelectionChannel
-            #label: 'Add Separator'
-            #itemValue: #doCreateSep
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconSeparator)
+         (MenuItem
+            activeHelpKey: addMenuSeparator
+            enabled: hasSingleSelectionChannel
+            label: 'Add Separator'
+            itemValue: doCreateSep
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever #'MenuEditor::Item' iconSeparator)
           )
-         #(#MenuItem
-            #activeHelpKey: #addMenuItem
-            #enabled: #hasSingleSelectionChannel
-            #label: 'Add Item'
-            #itemValue: #doCreateItem
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconItem)
+         (MenuItem
+            activeHelpKey: addMenuItem
+            enabled: hasSingleSelectionChannel
+            label: 'Add Item'
+            itemValue: doCreateItem
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever #'MenuEditor::Item' iconItem)
           )
-         #(#MenuItem
-            #activeHelpKey: #addSubMenu
-            #enabled: #hasSingleSelectionChannel
-            #label: 'Add Menu'
-            #itemValue: #doCreateMenu
-            #translateLabel: true
-            #isButton: true
-            #submenuChannel: #standardMenus
-            #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconMenu)
+         (MenuItem
+            activeHelpKey: addSubMenu
+            enabled: hasSingleSelectionChannel
+            label: 'Add Menu'
+            itemValue: doCreateMenu
+            translateLabel: true
+            isButton: true
+            submenuChannel: standardMenus
+            labelImage: (ResourceRetriever #'MenuEditor::Item' iconMenu)
           )
-         #(#MenuItem
-            #activeHelpKey: #addSubMenuLink
-            #enabled: #hasSingleSelectionChannel
-            #label: 'Add Linked Menu'
-            #itemValue: #doCreateLinkedMenu
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconLinkedMenu)
+         (MenuItem
+            activeHelpKey: addSubMenuLink
+            enabled: hasSingleSelectionChannel
+            label: 'Add Linked Menu'
+            itemValue: doCreateLinkedMenu
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever #'MenuEditor::Item' iconLinkedMenu)
           )
-         #(#MenuItem
-            #label: ''
+         (MenuItem
+            label: ''
           )
-         #(#MenuItem
-            #activeHelpKey: #addDelayedMenu
-            #enabled: #canCreateDelayedMenuChannel
-            #label: 'Add Delayed Menu'
-            #itemValue: #doCreateDelayedMenu:
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedMenu)
-            #argument: #menu
+         (MenuItem
+            activeHelpKey: addDelayedMenu
+            enabled: canCreateDelayedMenuChannel
+            label: 'Add Delayed Menu'
+            itemValue: doCreateDelayedMenu:
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedMenu)
+            argument: menu
           )
-         #(#MenuItem
-            #activeHelpKey: #addDelayedSubMenuLink
-            #enabled: #canCreateDelayedMenuChannel
-            #label: 'Add Delayed Linked Menu'
-            #itemValue: #doCreateDelayedMenu:
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #'MenuEditor::Item' #iconDelayedLinkedMenu)
-            #argument: #linkedMenu
+         (MenuItem
+            activeHelpKey: addDelayedSubMenuLink
+            enabled: canCreateDelayedMenuChannel
+            label: 'Add Delayed Linked Menu'
+            itemValue: doCreateDelayedMenu:
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever #'MenuEditor::Item' iconDelayedLinkedMenu)
+            argument: linkedMenu
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveUp
-            #enabled: #valueOfEnableMovingUpOrDown
-            #label: 'Move Up'
-            #itemValue: #doMoveUpOrDown:
-            #translateLabel: true
-            #isButton: true
-            #startGroup: #right
-            #labelImage: #(#ResourceRetriever #Icon #upIcon)
-            #argument: #up
+         (MenuItem
+            activeHelpKey: editMoveUp
+            enabled: valueOfEnableMovingUpOrDown
+            label: 'Move Up'
+            itemValue: doMoveUpOrDown:
+            translateLabel: true
+            isButton: true
+            startGroup: right
+            labelImage: (ResourceRetriever Icon upIcon)
+            argument: up
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveDown
-            #enabled: #valueOfEnableMovingUpOrDown
-            #label: 'Move Down'
-            #itemValue: #doMoveUpOrDown:
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #Icon #downIcon)
-            #argument: #down
+         (MenuItem
+            activeHelpKey: editMoveDown
+            enabled: valueOfEnableMovingUpOrDown
+            label: 'Move Down'
+            itemValue: doMoveUpOrDown:
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever Icon downIcon)
+            argument: down
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveIn
-            #enabled: #valueOfEnableMovingIn
-            #label: 'Move In'
-            #itemValue: #doMoveIn:
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #Icon #downRightIcon)
-            #argument: #inNext
+         (MenuItem
+            activeHelpKey: editMoveIn
+            enabled: valueOfEnableMovingIn
+            label: 'Move In'
+            itemValue: doMoveIn:
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever Icon downRightIcon)
+            argument: inNext
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveInAbove
-            #enabled: #valueOfEnableMovingInAbove
-            #label: 'Move In Above'
-            #itemValue: #doMoveIn:
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #Icon #upRightIcon)
-            #argument: #inPrev
+         (MenuItem
+            activeHelpKey: editMoveInAbove
+            enabled: valueOfEnableMovingInAbove
+            label: 'Move In Above'
+            itemValue: doMoveIn:
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever Icon upRightIcon)
+            argument: inPrev
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveOut
-            #enabled: #valueOfEnableMovingOut
-            #label: 'Move Out'
-            #itemValue: #doMoveOut
-            #translateLabel: true
-            #isButton: true
-            #labelImage: #(#ResourceRetriever #Icon #leftDownIcon)
+         (MenuItem
+            activeHelpKey: editMoveOut
+            enabled: valueOfEnableMovingOut
+            label: 'Move Out'
+            itemValue: doMoveOut
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever Icon leftDownIcon)
           )
          )
         nil