#FEATURE by exept draft
authorClaus Gittinger <cg@exept.de>
Tue, 09 Jul 2019 20:20:11 +0200
changeset 3685 854b28268aa6
parent 3684 941d2ff78a3e
child 3686 501ea259b6a8
#FEATURE by exept class: MethodFinderWindow class changed: #menu
MethodFinderWindow.st
--- a/MethodFinderWindow.st	Mon Jul 08 03:26:32 2019 +0000
+++ b/MethodFinderWindow.st	Tue Jul 09 20:20:11 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
  Copyright (C) 2001 eXept Software AG
@@ -892,6 +890,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:MethodFinderWindow andSelector:#menu
      (Menu new fromLiteralArrayEncoding:(MethodFinderWindow menu)) startUp
@@ -900,39 +899,42 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: '&File'
-            #activeHelpKey: #file
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Exit'
-                  #value: #closeRequest
-                  #activeHelpKey: #fileExit
+     #(Menu
+        (
+         (MenuItem
+            activeHelpKey: file
+            label: '&File'
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: fileExit
+                  label: 'Exit'
+                  itemValue: closeRequest
                 )
                )
               nil
               nil
             )
           )
-         #(#MenuItem
+         (MenuItem
             label: 'MENU_Help'
             startGroup: conditionalRight
-            #submenu: 
-           #(#Menu
-              #(
-               #(#MenuItem
-                  #label: 'Documentation'
-                  #value: #openHTMLDocumentation
-                  #activeHelpKey: #helpTutorial
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  activeHelpKey: helpTutorial
+                  label: 'Documentation'
+                  itemValue: openHTMLDocumentation
                 )
-               #(#MenuItem
-                  #label: 'About MethodFinder...'
-                  #value: #openAboutThisApplication
-                  #activeHelpKey: #aboutThisAppliaction
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  activeHelpKey: aboutThisAppliaction
+                  label: 'About MethodFinder...'
+                  itemValue: openAboutThisApplication
                 )
                )
               nil
@@ -943,8 +945,6 @@
         nil
         nil
       )
-
-    "Modified: / 13.11.2001 / 12:36:39 / cg"
 !
 
 resultListMenu