NewLauncher.st
changeset 8423 cd5a1e4249a1
parent 8400 ad6a13a34f3e
child 8575 00d0548d17c4
--- a/NewLauncher.st	Fri Nov 14 13:55:10 2008 +0100
+++ b/NewLauncher.st	Fri Nov 14 13:55:28 2008 +0100
@@ -195,6 +195,9 @@
 #toolsChangesBrowser
 'Changes Browser'
 
+toolsChangesBrowserOrNavigateToRecentChange
+'Changes Browser / Recent Change'
+
 #toolsMiscProjectsNewProject
 'New Project'
 
@@ -308,6 +311,9 @@
 #demos3D
 '3D GL graphic demos.'
 
+demosOldStuff
+'Very old demos'
+
 #demos3DcubeSolid
 'A rotating solid cube.'
 
@@ -348,7 +354,7 @@
 'Opens a calculator with decimal to hex conversion.'
 
 #demosCalendar
-'Opens a GUI on the cal unix program.'
+'Opens a GUI on the cal program (unix only).'
 
 #demosClock
 'Opens an analog clock application.'
@@ -371,6 +377,9 @@
 #demosGUI
 'GUI builder demos.'
 
+#demosDrawingProtocol
+'Drawing protocol demo (for programmers)'
+
 #demosGUICalculator
 'Calculator built using the GUI builder.'
 
@@ -599,6 +608,9 @@
 #toolsChangesBrowser
 'Open a Changes Browser.'
 
+#toolsChangesBrowserOrNavigateToRecentChange
+'Open a Changes Browser or navigate to a recent Change.'
+
 #toolsGUIPainter
 'Open a GUI Painter for graphical user interface construction.'
 
@@ -1746,7 +1758,7 @@
                   argument: 'CodingExamples_GUI::GUIDemo'
                 )
                (MenuItem
-                  activeHelpKey: demosGUIWidgets
+                  activeHelpKey: demosDrawingProtocol
                   label: 'Drawing Protocol Demo'
                   itemValue: openDemo:
                   translateLabel: true
@@ -1775,6 +1787,7 @@
             )
           )
          (MenuItem
+            activeHelpKey: demosOldStuff
             label: 'Old Stuff'
             translateLabel: true
             submenu: 
@@ -2246,7 +2259,7 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserOnHistoryClassIcon)
           )
          (MenuItem
-            activeHelpKey: toolsChangesBrowser
+            activeHelpKey: toolsChangesBrowserOrNavigateToRecentChange
             label: 'open changes browser'
             itemValue: startChangesBrowser
             nameKey: changesBrowser
@@ -4574,5 +4587,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.381 2008-11-04 19:13:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.382 2008-11-14 12:55:28 cg Exp $'
 ! !