--- 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 $'
! !