--- a/NewLauncher.st	Wed May 13 10:03:14 2009 +0200
+++ b/NewLauncher.st	Wed May 13 11:08:59 2009 +0200
@@ -494,6 +494,9 @@
 #helpRFC
 'Show an RFC by number.'
 
+#helpProgrammersGuide
+'Show the Programmer''s Guide.'
+
 #helpSTXOnlineDocumentation
 'Show the ST/X online documentation.'
 
@@ -1951,6 +1954,13 @@
             translateLabel: true
           )
          (MenuItem
+            activeHelpKey: helpProgrammersGuide
+            label: 'Programmer''s Guide'
+            itemValue: startProgrammersGuide
+            translateLabel: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary helpIcon 'Programmer''s Guide')
+          )
+         (MenuItem
             activeHelpKey: helpToolsDocumentation
             label: 'Tool Documentation'
             itemValue: startToolsDocumentation
@@ -4592,5 +4602,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.383 2009-03-09 09:36:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.384 2009-05-13 09:08:59 cg Exp $'
 ! !