--- a/NewLauncher.st Tue Nov 04 13:44:05 2008 +0100
+++ b/NewLauncher.st Tue Nov 04 20:13:14 2008 +0100
@@ -473,21 +473,36 @@
#helpClassDocumentation
'Show the smalltalk class documentation.'
+#helpCredits
+'Say thanks to some friends.'
+
#helpIndex
'Show the index of the online documentation.'
#helpPrintDocumentation
'Print various parts of the ST/X documentation.'
+#helpRFC
+'Show an RFC by number.'
+
#helpSTXOnlineDocumentation
'Show the ST/X online documentation.'
#helpShowTipOfTheDay
'Show a tip-of-the-day.'
+#helpToolsDocumentation
+'Show the tool documentation.'
+
+#helpTutorial
+'Show the ST/X Tutorial.'
+
#helpWhatsNew
'Show the latest news about the ST/X documentation.'
+#helpWhatsNewInSTX
+'Show the latest news about ST/X.'
+
#newSystemBrowser
'Open the new, improved System Browser.'
@@ -1907,109 +1922,119 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #activeHelpKey: #helpSTXOnlineDocumentation
- #label: 'ST/X Online Documentation'
- #itemValue: #startDocumentationTool
- #translateLabel: true
- #labelImage: #(#ResourceRetriever ToolbarIconLibrary #helpIcon2 'ST/X Online Documentation')
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: helpSTXOnlineDocumentation
+ label: 'ST/X Online Documentation'
+ itemValue: startDocumentationTool
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary helpIcon2 'ST/X Online Documentation')
)
- #(#MenuItem
- #label: 'Smalltalk Tutorial for Beginners'
- #itemValue: #startTutorial
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: helpTutorial
+ label: 'Smalltalk Tutorial for Beginners'
+ itemValue: startTutorial
+ translateLabel: true
+ )
+ (MenuItem
+ activeHelpKey: helpToolsDocumentation
+ label: 'Tool Documentation'
+ itemValue: startToolsDocumentation
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary helpIcon 'Tool Documentation')
)
- #(#MenuItem
- #activeHelpKey: #helpClassDocumentation
- #label: 'Class Documentation'
- #itemValue: #startClassDocumentation
- #translateLabel: true
- #labelImage: #(#ResourceRetriever ToolbarIconLibrary #helpIcon 'Class Documentation')
+ (MenuItem
+ activeHelpKey: helpClassDocumentation
+ label: 'Class Documentation'
+ itemValue: startClassDocumentation
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary helpIcon 'Class Documentation')
)
- #(#MenuItem
- #label: 'Web-Documents'
- #translateLabel: true
- #submenu:
- #(#Menu
- #(
- #(#MenuItem
- #label: 'RFCs...'
- #itemValue: #showRFC
- #translateLabel: true
+ (MenuItem
+ label: 'Web-Documents'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: helpRFC
+ label: 'RFCs...'
+ itemValue: showRFC
+ translateLabel: true
)
- #(#MenuItem
- #label: 'TCP/UDP Ports...'
- #itemValue: #showPortInfo
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: helpPortInfo
+ label: 'TCP/UDP Ports...'
+ itemValue: showPortInfo
+ translateLabel: true
)
)
nil
nil
)
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #helpPrintDocumentation
- #label: 'Print Documentation...'
- #itemValue: #showBookPrintDocument
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: helpPrintDocumentation
+ label: 'Print Documentation...'
+ itemValue: showBookPrintDocument
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #helpShowTipOfTheDay
- #label: 'Tip of the Day'
- #translateLabel: true
- #itemValue: #showTipOfTheDay
+ (MenuItem
+ activeHelpKey: helpShowTipOfTheDay
+ label: 'Tip of the Day'
+ itemValue: showTipOfTheDay
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #helpActiveHelp
- #label: 'Tooltips (FlyBy Help)'
- #itemValue: #toggleFlyByHelp:
- #translateLabel: true
- #indication: #activeHelp
+ (MenuItem
+ activeHelpKey: helpActiveHelp
+ label: 'Tooltips (FlyBy Help)'
+ itemValue: toggleFlyByHelp:
+ translateLabel: true
+ indication: activeHelp
)
- #(#MenuItem
- #activeHelpKey: #helpShowHelp
- #label: 'Show Help Texts'
- #translateLabel: true
- #isVisible: false
- #indication: #showingHelp:
+ (MenuItem
+ activeHelpKey: helpShowHelp
+ label: 'Show Help Texts'
+ translateLabel: true
+ isVisible: false
+ indication: showingHelp:
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #helpWhatsNew
- #label: 'What''s New in the Documentation'
- #itemValue: #startWhatsNewDocumentation
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: helpWhatsNew
+ label: 'What''s New in the Documentation'
+ itemValue: startWhatsNewDocumentation
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #helpReleaseNotes
- #label: 'What''s New in ST/X'
- #itemValue: #startWhatsNewSTX
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: helpWhatsNewInSTX
+ label: 'What''s New in ST/X'
+ itemValue: startWhatsNewSTX
+ translateLabel: true
)
- #(#MenuItem
- #activeHelpKey: #helpIndex
- #label: 'Keyword Index'
- #itemValue: #startDocumentationIndex
- #translateLabel: true
+ (MenuItem
+ activeHelpKey: helpIndex
+ label: 'Keyword Index'
+ itemValue: startDocumentationIndex
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #activeHelpKey: #helpCredits
- #label: 'Credits'
- #translateLabel: true
- #itemValue: #showCredits
+ (MenuItem
+ activeHelpKey: helpCredits
+ label: 'Credits'
+ itemValue: showCredits
+ translateLabel: true
)
)
nil
@@ -4549,5 +4574,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.380 2008-10-27 10:26:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.381 2008-11-04 19:13:14 cg Exp $'
! !