--- 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