# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1021368031 -7200
# Node ID 852d3060ce0a767bee5462ac65be5cbeae78e8f7
# Parent  3282f44c5ca4721e7dc85d3becaac2907d862927
left/right startGroup;
help text fixed

diff -r 3282f44c5ca4 -r 852d3060ce0a MenuEditor.st
--- a/MenuEditor.st	Wed May 08 06:37:02 2002 +0200
+++ b/MenuEditor.st	Tue May 14 11:20:31 2002 +0200
@@ -297,10 +297,10 @@
 'Search for methods with image resource.'
 
 #detailsAccelerator
-'Key to be pressed to select the menu item from the keyboard (accelerator key).'
+'Accelerator key to select the menu item from the keyboard (Cmdx or Ctrlx).'
 
 #detailsAccessCharaterPosition
-'Index of the access character position of the textual label (optional).'
+'Index of the access character position of the textual label (obsolete, VW compatibility).'
 
 #detailsAuxValue
 'Some additional value - for arbitrary use by the program'
@@ -1175,14 +1175,14 @@
               #adjust: #right
             )
            #(#PopUpListSpec
-              #label: 'PopUpList'
+              #label: 'left'
               #name: 'StartGroupPopUp'
               #layout: #(#LayoutFrame 110 0 128 0 -5 1.0 150 0)
               #activeHelpKey: #detailsStartGroup
               #tabable: true
               #model: #startGroup
               #menu: 
-             #(nil
+             #(#left
                 #right
               )
               #useIndex: false
@@ -1474,172 +1474,153 @@
 
     <resource: #menu>
 
-    ^
-     
-       #(#Menu
-          
-           #(
-             #(#MenuItem
-                #label: '&File'
-                #activeHelpKey: #file
-                #translateLabel: true
-                #submenu: 
-                 #(#Menu
-                    
-                     #(
-                       #(#MenuItem
-                          #label: 'New'
-                          #value: #doNew
-                          #translateLabel: true
-                          #activeHelpKey: #fileNew
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Load...'
-                          #translateLabel: true
-                          #value: #doLoad
-                          #activeHelpKey: #fileLoad
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Save'
-                          #translateLabel: true
-                          #value: #doSave
-                          #activeHelpKey: #fileSave
-                      )
-                       #(#MenuItem
-                          #label: 'Save As...'
-                          #translateLabel: true
-                          #value: #doSaveAs
-                          #activeHelpKey: #fileSaveAs
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Pick A Menu...'
-                          #translateLabel: true
-                          #value: #doPickAMenu
-                          #activeHelpKey: #filePickAMenu
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Browse Class'
-                          #translateLabel: true
-                          #value: #doBrowseClass
-                          #activeHelpKey: #fileBrowseClass
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Exit'
-                          #translateLabel: true
-                          #value: #closeRequest
-                          #activeHelpKey: #fileExit
-                      )
-                    ) nil
-                    nil
+    ^ 
+     #(#Menu
+        #(
+         #(#MenuItem
+            #label: '&File'
+            #translateLabel: true
+            #activeHelpKey: #file
+            #submenu: 
+           #(#Menu
+              #(
+               #(#MenuItem
+                  #label: 'New'
+                  #translateLabel: true
+                  #value: #doNew
+                  #activeHelpKey: #fileNew
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Load...'
+                  #translateLabel: true
+                  #value: #doLoad
+                  #activeHelpKey: #fileLoad
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Save'
+                  #translateLabel: true
+                  #value: #doSave
+                  #activeHelpKey: #fileSave
                 )
-            )
-             #(#MenuItem
-                #label: 'Edit'
-                #activeHelpKey: #edit
-                #translateLabel: true
-                #submenuChannel: #menuEdit
+               #(#MenuItem
+                  #label: 'Save As...'
+                  #translateLabel: true
+                  #value: #doSaveAs
+                  #activeHelpKey: #fileSaveAs
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Pick A Menu...'
+                  #translateLabel: true
+                  #value: #doPickAMenu
+                  #activeHelpKey: #filePickAMenu
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Browse Class'
+                  #translateLabel: true
+                  #value: #doBrowseClass
+                  #activeHelpKey: #fileBrowseClass
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Exit'
+                  #translateLabel: true
+                  #value: #closeRequest
+                  #activeHelpKey: #fileExit
+                )
+               )
+              nil
+              nil
             )
-             #(#MenuItem
-                #label: 'Add'
-                #activeHelpKey: #add
-                #translateLabel: true
-                #submenuChannel: #menuAdd
-            )
-             #(#MenuItem
-                #label: 'Test'
-                #activeHelpKey: #test
-                #translateLabel: true
-                #submenuChannel: #submenuTest
-            )
-"/             #(#MenuItem
-"/                #label: 'Settings'
-"/                #submenu: 
-"/                 #(#Menu
-"/                    
-"/                     #(
-"/                       #(#MenuItem
-"/                          #label: 'Fonts'
-"/                          #translateLabel: true
-"/                          #submenuChannel: #menuFont
-"/                      )
-"/                    ) nil
-"/                    nil
-"/                )
-"/            )
-             #(#MenuItem
-                #label: 'History'
-                #activeHelpKey: #history
-                #translateLabel: true
-                #submenuChannel: #menuHistory
+          )
+         #(#MenuItem
+            #label: 'Edit'
+            #translateLabel: true
+            #activeHelpKey: #edit
+            #submenuChannel: #menuEdit
+          )
+         #(#MenuItem
+            #label: 'Add'
+            #translateLabel: true
+            #activeHelpKey: #add
+            #submenuChannel: #menuAdd
+          )
+         #(#MenuItem
+            #label: 'Test'
+            #translateLabel: true
+            #activeHelpKey: #test
+            #submenuChannel: #submenuTest
+          )
+         #(#MenuItem
+            #label: 'History'
+            #translateLabel: true
+            #activeHelpKey: #history
+            #submenuChannel: #menuHistory
+          )
+         #(#MenuItem
+            #label: 'Help'
+            #translateLabel: true
+            #startGroup: #right
+            #submenu: 
+           #(#Menu
+              #(
+               #(#MenuItem
+                  #label: 'Documentation'
+                  #translateLabel: true
+                  #value: #openHTMLDocument:
+                  #activeHelpKey: #helpTutorial
+                  #argument: 'tools/uipainter/MenuEditor.html'
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Help Tool'
+                  #translateLabel: true
+                  #value: #openHTMLDocument:
+                  #activeHelpKey: #helpHelpTool
+                  #argument: 'tools/uipainter/HelpTool.html'
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'Show Help Texts'
+                  #translateLabel: true
+                  #activeHelpKey: #helpShowHelp
+                  #indication: #showingHelp:
+                )
+               #(#MenuItem
+                  #label: '-'
+                )
+               #(#MenuItem
+                  #label: 'About MenuEditor...'
+                  #translateLabel: true
+                  #value: #openAboutThisApplication
+                  #activeHelpKey: #aboutThisAppliaction
+                )
+               )
+              nil
+              nil
             )
-             #(#MenuItem
-                #label: 'Help'
-                #translateLabel: true
-                #startGroup: #right
-                #submenu: 
-                 #(#Menu
-                    
-                     #(
-                       #(#MenuItem
-                          #label: 'Documentation'
-                          #value: #openHTMLDocument:
-                          #translateLabel: true
-                          #activeHelpKey: #helpTutorial
-                          #argument: 'tools/uipainter/MenuEditor.html'
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Help Tool'
-                          #value: #openHTMLDocument:
-                          #translateLabel: true
-                          #activeHelpKey: #helpHelpTool
-                          #argument: 'tools/uipainter/HelpTool.html'
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'Show Help Texts'
-                          #translateLabel: true
-                          #activeHelpKey: #helpShowHelp
-                          #indication: #showingHelp:
-                      )
-                       #(#MenuItem
-                          #label: '-'
-                      )
-                       #(#MenuItem
-                          #label: 'About MenuEditor...'
-                          #translateLabel: true
-                          #value: #openAboutThisApplication
-                          #activeHelpKey: #aboutThisAppliaction
-                      )
-
-                    ) nil
-                    nil
-                )
-            )
-          ) nil
-          nil
+          )
+         )
+        nil
+        nil
       )
-
-    "Modified: / 31.7.1998 / 18:19:47 / cg"
 !
 
 menuAdd