diff -r f3cf8f389c87 -r 6ef00e72f1d5 MenuEditor.st
--- a/MenuEditor.st	Fri Oct 05 13:19:24 2007 +0200
+++ b/MenuEditor.st	Fri Oct 19 13:25:34 2007 +0200
@@ -717,84 +717,92 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #activeHelpKey: #editCut
-            #enabled: #hasSelectionChannel
-            #label: 'Cut'
-            #itemValue: #doCut
-            #translateLabel: true
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: editCut
+            enabled: hasSelectionChannel
+            label: 'Cut'
+            itemValue: doCut
+            translateLabel: true
+            shortcutKey: Cut
           )
-         #(#MenuItem
-            #activeHelpKey: #editCopy
-            #enabled: #hasSelectionChannel
-            #label: 'Copy'
-            #itemValue: #doCopy
-            #translateLabel: true
+         (MenuItem
+            activeHelpKey: editCopy
+            enabled: hasSelectionChannel
+            label: 'Copy'
+            itemValue: doCopy
+            translateLabel: true
+            shortcutKey: Copy
           )
-         #(#MenuItem
-            #activeHelpKey: #editPaste
-            #enabled: #canPasteHolder
-            #label: 'Paste'
-            #itemValue: #doPaste
-            #translateLabel: true
+         (MenuItem
+            activeHelpKey: editPaste
+            enabled: canPasteHolder
+            label: 'Paste'
+            itemValue: doPaste
+            translateLabel: true
+            shortcutKey: Paste
           )
-         #(#MenuItem
-            #activeHelpKey: #editDelete
-            #enabled: #hasSelectionChannel
-            #label: 'Delete'
-            #itemValue: #doDelete
-            #translateLabel: true
-            #isVisible: false
+         (MenuItem
+            activeHelpKey: editDelete
+            enabled: hasSelectionChannel
+            label: 'Delete'
+            itemValue: doDelete
+            translateLabel: true
+            isVisible: false
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveUp
-            #enabled: #enableMovingUpOrDownHolder
-            #label: 'Move Up'
-            #itemValue: #doMoveUpOrDown:
-            #translateLabel: true
-            #startGroup: #right
-            #labelImage: #(#ResourceRetriever #Icon #upIcon '')
-            #argument: #up
+         (MenuItem
+            activeHelpKey: editMoveUp
+            enabled: enableMovingUpOrDownHolder
+            label: 'Move Up'
+            itemValue: doMoveUpOrDown:
+            translateLabel: true
+            startGroup: right
+            argument: up
+            shortcutKey: CtrlCursorUp
+            labelImage: (ResourceRetriever Icon upIcon 'Move Up')
+"/            labelImage: (ResourceRetriever ToolbarIconLibrary up16x16Icon 'Move Up')
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveDown
-            #enabled: #enableMovingUpOrDownHolder
-            #label: 'Move Down'
-            #itemValue: #doMoveUpOrDown:
-            #translateLabel: true
-            #labelImage: #(#ResourceRetriever #Icon #downIcon '')
-            #argument: #down
+         (MenuItem
+            activeHelpKey: editMoveDown
+            enabled: enableMovingUpOrDownHolder
+            label: 'Move Down'
+            itemValue: doMoveUpOrDown:
+            translateLabel: true
+            shortcutKey: CtrlCursorDown
+            labelImage: (ResourceRetriever Icon downIcon 'Move Down')
+            argument: down
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveIn
-            #enabled: #enableMovingInHolder
-            #label: 'Move Into Next'
-            #itemValue: #doMoveIn:
-            #translateLabel: true
-            #labelImage: #(#ResourceRetriever #Icon #downRightIcon '')
-            #argument: #inNext
+         (MenuItem
+            activeHelpKey: editMoveIn
+            enabled: enableMovingInHolder
+            label: 'Move Into Next'
+            itemValue: doMoveIn:
+            translateLabel: true
+            shortcutKey: CtrlCursorRight
+            labelImage: (ResourceRetriever Icon downRightIcon 'Move Into Next')
+            argument: inNext
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveInAbove
-            #enabled: #enableMovingInAboveHolder
-            #label: 'Move Into Previous'
-            #itemValue: #doMoveIn:
-            #translateLabel: true
-            #labelImage: #(#ResourceRetriever #Icon #upRightIcon '')
-            #argument: #inPrev
+         (MenuItem
+            activeHelpKey: editMoveInAbove
+            enabled: enableMovingInAboveHolder
+            label: 'Move Into Previous'
+            itemValue: doMoveIn:
+            translateLabel: true
+            labelImage: (ResourceRetriever Icon upRightIcon 'Move Into Previous')
+            argument: inPrev
           )
-         #(#MenuItem
-            #activeHelpKey: #editMoveOut
-            #enabled: #enableMovingOutHolder
-            #label: 'Move Out'
-            #itemValue: #doMoveOut
-            #translateLabel: true
-            #labelImage: #(#ResourceRetriever #Icon #leftDownIcon '')
+         (MenuItem
+            activeHelpKey: editMoveOut
+            enabled: enableMovingOutHolder
+            label: 'Move Out'
+            itemValue: doMoveOut
+            translateLabel: true
+            shortcutKey: CtrlCursorLeft
+            labelImage: (ResourceRetriever Icon leftDownIcon 'Move Out')
           )
          )
         nil