--- a/UIPainter.st	Mon Aug 24 12:56:23 1998 +0200
+++ b/UIPainter.st	Mon Aug 24 12:57:57 1998 +0200
@@ -873,15 +873,15 @@
              #(#MenuItem
                 #label: 'About'
                 #translateLabel: true
+                #activeHelpKey: #about
                 #labelImage: #(#ResourceRetriever nil #menuIcon)
-                #activeHelpKey: #about
                 #submenuChannel: #menuAbout
             )
              #(#MenuItem
                 #label: 'File'
                 #translateLabel: true
+                #activeHelpKey: #file
                 #enabled: #enableChannel
-                #activeHelpKey: #file
                 #submenu: 
                  #(#Menu
                     
@@ -976,14 +976,14 @@
              #(#MenuItem
                 #label: 'Edit'
                 #translateLabel: true
+                #activeHelpKey: #edit
                 #submenuChannel: #menuEdit
-                #activeHelpKey: #edit
             )
              #(#MenuItem
                 #label: 'Align'
                 #translateLabel: true
+                #activeHelpKey: #align
                 #submenuChannel: #menuAlign
-                #activeHelpKey: #align
             )
              #(#MenuItem
                 #label: 'Generate'
@@ -1001,6 +1001,11 @@
                           #enabled: #hasSpecClass
                       )
                        #(#MenuItem
+                          #label: 'Menu Stub Methods'
+                          #translateLabel: true
+                          #value: #doGenerateMenuMethods
+                      )
+                       #(#MenuItem
                           #label: '-'
                       )
                        #(#MenuItem
@@ -1187,7 +1192,7 @@
           nil
       )
 
-    "Modified: / 31.7.1998 / 19:23:26 / cg"
+    "Modified: / 23.8.1998 / 16:09:22 / cg"
 !
 
 menuAlign
@@ -2882,6 +2887,9 @@
     super postOpenWith:aBuilder.
 
     cls := specClass.
+    cls isString ifTrue:[
+        cls := Smalltalk at:(cls string asSymbol)
+    ].
     sel := specSelector.
     specSelector := nil.
     specClass    := nil.
@@ -2906,6 +2914,7 @@
     ].
     treeView selection: #(1).
 
+    "Modified: / 22.8.1998 / 17:41:34 / cg"
 ! !
 
 !UIPainter methodsFor:'user actions'!
@@ -3147,6 +3156,16 @@
 
 !
 
+doGenerateMenuMethods
+    "generates menu stub methods for the application class"
+
+    self askForSectionModification.
+
+    (ReadStream on:self painter generateMenuMethods) fileIn.
+
+    "Created: / 23.8.1998 / 16:10:04 / cg"
+!
+
 doInspectSpec
     "opens an inspector on the spec of the selected widget"