--- a/UIPainter.st	Fri Jul 31 02:10:02 1998 +0200
+++ b/UIPainter.st	Fri Jul 31 19:25:12 1998 +0200
@@ -112,6 +112,9 @@
 
     ^super helpSpec addPairsFrom:#(
 
+#align
+'Widget alignment functions.'
+
 #alignSelectionBottom
 'Aligns the selected widgets bottom edges with the bottom of the dominant widget.'
 
@@ -131,7 +134,7 @@
 'Aligns the selected widgets right edges with the right edge of the dominant widget.'
 
 #alignSelectionTop
-'Aligns the selected widgets top edgegs withh the top edge of the dominant widget.'
+'Aligns the selected widgets top edgegs with the top edge of the dominant widget.'
 
 #alignSelectionTopAndBottom
 'Aligns the selected widgets top and bottom edges with the dominant widget.'
@@ -191,7 +194,7 @@
 'Opens the documentation of the selected widget.'
 
 #fileBrowseAspectMethods
-'Opens a System Browser to browse the aspect methods.'
+'Opens a System Browser on the aspect methods.'
 
 #fileLoad
 'Opens a dialog to load a window specification from a classes windowSpec method.'
@@ -288,7 +291,7 @@
 
 )
 
-    "Modified: / 29.7.1998 / 11:54:16 / cg"
+    "Modified: / 31.7.1998 / 19:24:19 / cg"
 ! !
 
 !UIPainter class methodsFor:'helpers'!
@@ -864,12 +867,14 @@
                 #label: 'About'
                 #translateLabel: true
                 #labelImage: #(#ResourceRetriever nil #menuIcon)
+                #activeHelpKey: #about
                 #submenuChannel: #menuAbout
             )
              #(#MenuItem
                 #label: 'File'
                 #translateLabel: true
                 #enabled: #enableChannel
+                #activeHelpKey: #file
                 #submenu: 
                  #(#Menu
                     
@@ -965,15 +970,18 @@
                 #label: 'Edit'
                 #translateLabel: true
                 #submenuChannel: #menuEdit
+                #activeHelpKey: #edit
             )
              #(#MenuItem
                 #label: 'Align'
                 #translateLabel: true
                 #submenuChannel: #menuAlign
+                #activeHelpKey: #align
             )
              #(#MenuItem
                 #label: 'Generate'
                 #translateLabel: true
+                #activeHelpKey: #generate
                 #submenu: 
                  #(#Menu
                     
@@ -1002,6 +1010,7 @@
              #(#MenuItem
                 #label: 'Test'
                 #translateLabel: true
+                #activeHelpKey: #test
                 #submenu: 
                  #(#Menu
                     
@@ -1028,6 +1037,7 @@
              #(#MenuItem
                 #label: 'Settings'
                 #translateLabel: true
+                #activeHelpKey: #settings
                 #submenu: 
                  #(#Menu
                     
@@ -1091,12 +1101,14 @@
              #(#MenuItem
                 #label: 'History'
                 #translateLabel: true
+                #activeHelpKey: #history
                 #submenuChannel: #menuHistory
             )
              #(#MenuItem
                 #label: 'Help'
                 #translateLabel: true
                 #startGroup: #right
+                #activeHelpKey: #help
                 #submenu: 
                  #(#Menu
                     
@@ -1158,7 +1170,7 @@
                           #label: 'Show Help Texts'
                           #translateLabel: true
                           #activeHelpKey: #helpShowHelp
-                          #indication: #showHelp:
+                          #indication: #showingHelp:
                       )
                     ) nil
                     nil
@@ -1168,7 +1180,7 @@
           nil
       )
 
-    "Modified: / 29.7.1998 / 12:03:44 / cg"
+    "Modified: / 31.7.1998 / 19:23:26 / cg"
 !
 
 menuAlign