--- a/NewLauncher.st	Fri Jul 31 02:40:21 1998 +0200
+++ b/NewLauncher.st	Fri Jul 31 03:23:59 1998 +0200
@@ -232,6 +232,27 @@
 #demosGoodies
 'Goodies and Utilities.'
 
+#demosGraphicEditors
+'Graphic editing demos.'
+
+#demosGraphicEditorsDrawTool
+'Object drawing demo.'
+
+#demosGraphicEditorsLogicTool
+'Simulating Logic demo.'
+
+#demosGraphicEditorsPaintTool
+'Painting demo.'
+
+#demosGUI
+'GUI builder demos.'
+
+#demosGUIWidgets
+'GUI widgets usage.'
+
+#demosGUICalculator
+'Calculator built using the GUI builder.'
+
 #demosMail
 'Opens a simple mail viewer demo.'
 
@@ -447,7 +468,7 @@
 
 )
 
-    "Modified: / 28.7.1998 / 03:28:14 / cg"
+    "Modified: / 31.7.1998 / 03:22:01 / cg"
 ! !
 
 !NewLauncher class methodsFor:'interface specs'!
@@ -1501,6 +1522,7 @@
                        #(#MenuItem
                           #label: 'Graphic Editors'
                           #translateLabel: true
+                          #activeHelpKey: #demosGraphicEditors
                           #submenu: 
                            #(#Menu
                               
@@ -1510,18 +1532,21 @@
                                     #translateLabel: true
                                     #value: #openDemo:
                                     #argument: 'DrawTool'
+                                    #activeHelpKey: #demosGraphicEditorsDrawTool
                                 )
                                  #(#MenuItem
                                     #label: 'Logic Tool'
                                     #translateLabel: true
                                     #value: #openDemo:
                                     #argument: 'LogicTool'
+                                    #activeHelpKey: #demosGraphicEditorsLogicTool
                                 )
                                  #(#MenuItem
                                     #label: 'Paint Demo'
                                     #translateLabel: true
                                     #value: #openDemo:
                                     #argument: 'ColorDrawDemo3'
+                                    #activeHelpKey: #demosGraphicEditorsPaintTool
                                 )
                               ) nil
                               nil
@@ -1530,6 +1555,7 @@
                        #(#MenuItem
                           #label: 'GUI'
                           #translateLabel: true
+                          #activeHelpKey: #demosGUI
                           #submenu: 
                            #(#Menu
                               
@@ -1539,6 +1565,7 @@
                                     #translateLabel: true
                                     #value: #openDemo:
                                     #argument: 'CodingExamples_GUI::GUIDemo'
+                                    #activeHelpKey: #demosGUIWidgets
                                 )
                                  #(#MenuItem
                                     #label: '-'
@@ -1548,6 +1575,7 @@
                                     #translateLabel: true
                                     #value: #openDemo:
                                     #argument: 'CodingExamples_GUI::GUIDemoCalculator'
+                                    #activeHelpKey: #demosGUICalculator
                                 )
                               ) nil
                               nil
@@ -1620,7 +1648,7 @@
           nil
       )
 
-    "Modified: / 31.7.1998 / 00:56:32 / cg"
+    "Modified: / 31.7.1998 / 03:22:04 / cg"
 !
 
 menuToolbar
@@ -5542,5 +5570,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.87 1998-07-30 23:04:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.88 1998-07-31 01:23:59 cg Exp $'
 ! !