# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1192800198 -7200
# Node ID 39825ff916b8cf562c2cd410d89245f0f31ee865
# Parent  6ef00e72f1d590cccb059cb9881c73d9eb23c490
menu UI

diff -r 6ef00e72f1d5 -r 39825ff916b8 MenuEditor.st
--- 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 ].