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