--- a/MenuEditor.st Fri Oct 19 13:25:34 2007 +0200
+++ b/MenuEditor.st Fri Oct 19 15:23:18 2007 +0200
@@ -810,6 +810,112 @@
)
!
+editMenuForMainMenuWithoutAccelerators
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:MenuEditor andSelector:#editMenuForMainMenuWithoutAccelerators
+ (Menu new fromLiteralArrayEncoding:(MenuEditor editMenuForMainMenuWithoutAccelerators)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: editCut
+ enabled: hasSelectionChannel
+ label: 'Cut'
+ itemValue: doCut
+ translateLabel: true
+ )
+ (MenuItem
+ activeHelpKey: editCopy
+ enabled: hasSelectionChannel
+ label: 'Copy'
+ itemValue: doCopy
+ translateLabel: true
+ shortcutKey: #''
+ )
+ (MenuItem
+ activeHelpKey: editPaste
+ enabled: canPasteHolder
+ label: 'Paste'
+ itemValue: doPaste
+ translateLabel: true
+ shortcutKey: #''
+ )
+ (MenuItem
+ activeHelpKey: editDelete
+ enabled: hasSelectionChannel
+ label: 'Delete'
+ itemValue: doDelete
+ translateLabel: true
+ isVisible: false
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: editMoveUp
+ enabled: enableMovingUpOrDownHolder
+ label: 'Move Up'
+ itemValue: doMoveUpOrDown:
+ translateLabel: true
+ startGroup: right
+ shortcutKey: #''
+ labelImage: (ResourceRetriever Icon upIcon 'Move Up')
+ argument: up
+ )
+ (MenuItem
+ activeHelpKey: editMoveDown
+ enabled: enableMovingUpOrDownHolder
+ label: 'Move Down'
+ itemValue: doMoveUpOrDown:
+ translateLabel: true
+ shortcutKey: #''
+ labelImage: (ResourceRetriever Icon downIcon 'Move Down')
+ argument: down
+ )
+ (MenuItem
+ activeHelpKey: editMoveIn
+ enabled: enableMovingInHolder
+ label: 'Move Into Next'
+ itemValue: doMoveIn:
+ translateLabel: true
+ shortcutKey: #''
+ 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 'Move Into Previous')
+ argument: inPrev
+ )
+ (MenuItem
+ activeHelpKey: editMoveOut
+ enabled: enableMovingOutHolder
+ label: 'Move Out'
+ itemValue: doMoveOut
+ translateLabel: true
+ shortcutKey: #''
+ labelImage: (ResourceRetriever Icon leftDownIcon 'Move Out')
+ )
+ )
+ nil
+ nil
+ )
+!
+
fileMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -1016,7 +1122,7 @@
(MenuItem
label: '&Edit'
translateLabel: true
- submenuChannel: editMenu
+ submenuChannel: editMenuForMainMenuWithoutAccelerators
keepLinkedMenu: true
)
(MenuItem
@@ -1060,8 +1166,6 @@
nil
nil
)
-
- "Modified: / 23-10-2006 / 23:16:34 / cg"
!
settingsMenu
@@ -2145,7 +2249,7 @@
|evView inView rawKey key|
- anEvent isKeyPressEvent ifFalse:[ ^ false].
+ anEvent isKeyPressEvent ifFalse:[^ false].
evView := anEvent targetView.
evView isNil ifTrue:[ ^ false ].