hg/stx-libtool: comparison NewLauncher.st

equal deleted inserted replaced

-:48c69259d82d
+:676d72f909f9
 'Demo programs.'
 #demos3D
 '3D GL graphic demos.'
-demosOldStuff
-'Very old demos'
 #demos3DcubeSolid
 'A rotating solid cube.'
 #demos3DcubeWire
 'A rotating wireframe cube.'
 'Opens a demo for the Commander class.'
 #demosDigitalClock
 'Opens a digital clock application'
+#demosDrawingProtocol
+'Drawing protocol demo (for programmers)'
 #demosFTP
 'Opens a simple FTP interface demo.'
 #demosFractalPatterns
 'Opens a view displaying fractal patterns.'
 'Opens a view displaying fractal plants (iterated function systems).'
 #demosGUI
 'GUI builder demos.'
-#demosDrawingProtocol
-'Drawing protocol demo (for programmers)'
 #demosGUICalculator
 'Calculator built using the GUI builder.'
 #demosGUIWidgets
 'GUI widgets usage.'
 'Opens a view with more fractal patterns.'
 #demosNews
 'Opens a simple news reader demo.'
+#demosOldStuff
+'Very old demos'
 #demosPen
 'Opens a demo for the Pen class.'
 #demosRemoteLauncher
 'Opens a launcher on a remote display.'
 'Show the index of the online documentation.'
 #helpPrintDocumentation
 'Print various parts of the ST/X documentation.'
+#helpProgrammersGuide
+'Show the programmer''s guide.'
 #helpRFC
 'Show an RFC by number.'
-#helpProgrammersGuide
-'Show the programmer''s guide.'
 #helpSTXOnlineDocumentation
 'Show the ST/X online documentation.'
 #helpShowTipOfTheDay
 'Show a tip-of-the-day.'
+#helpSmalltalkTutorial
+'Show the Smalltalk Language Tutorial.'
 #helpToolsDocumentation
 'Show the tool documentation.'
 #helpTutorial
 'Show the ST/X Tutorial.'
-#helpSmalltalkTutorial
-'Show the Smalltalk Language Tutorial.'
 #helpWhatsNew
 'Show the latest news about the ST/X documentation.'
 #helpWhatsNewInSTX
 'Show the latest news about ST/X.'
 'Open a Changes Browser.'
 #toolsChangesBrowserOrNavigateToRecentChange
 'Open a Changes Browser or navigate to a recent Change.'
+#toolsEvaluationWorkspace
+'A 3-pane EvaluationWorkspace - good for lectures and Smalltalk courses'
 #toolsGUIPainter
 'Open a GUI Painter for graphical user interface construction.'
 #toolsImageEditor
 'Open a Bitmap Image Editor.'
+#toolsInternationalLanguageTranslationEditor
+'Open the National Language Translation Editor'
 #toolsMenuEditor
 'Open a Menu Editor for building menus and toolBars.'
 #toolsMisc
 'Misc Tools.'
 'Create a new project.'
 #toolsMiscProjectsSelectProject
 'Select an existing project and reopen its windows.'
+#toolsMyWorkspace
+'Workspace on the "MyWorkspace.wsp" file'
 #toolsNewChangesBrowser
 'Open the new changes browser.'
+#toolsOOM
+''
 #toolsOldChangesBrowser
 'Open the old changes browser.'
 #toolsProjects
 ''
-#toolsInternationalLanguageTranslationEditor
-'Open the National Language Translation Editor'
 #toolsSUnit
 'Open the SUnit TestRunner.'
 #toolsSmaCC
 'Open the SmaCC Parsergenerator Tool.'
+#toolsSystemWorkspace
+'The SystemWorkspace with Welcome Messages'
 #toolsTerminal
 'Open a terminal view (aka xterm)'
 #toolsWorkspace
 'Open a Workspace for evaluating smalltalk expressions.'
-#toolsMyWorkspace
-'Workspace on the "MyWorkspace.wsp" file'
-#toolsSystemWorkspace
-'The SystemWorkspace with Welcome Messages'
-#toolsEvaluationWorkspace
-'A 3-pane EvaluationWorkspace - good for lectures and Smalltalk courses'
 #windows
 'Window functions.'
 #windowsDeiconifyAll
 nameKey: startToDoListBrowser
 translateLabel: true
 )
 (MenuItem
 activeHelpKey: toolsOOM
+enabled: oomPackageLoaded
 label: 'Code Metrics Browser'
 itemValue: startOOMBrowser
 nameKey: startOOMBrowser
 translateLabel: true
 )
 (MenuItem
 activeHelpKey: toolsSmaCC
+enabled: smaccPackageLoaded
 label: 'SmaCC ParserGenerator'
 itemValue: startSmaCCParserGenerator
 nameKey: startSmaCCParserGenerator
 translateLabel: true
 )
 holder value:self transcriptView.
 ].
 ^ holder
 !
+oomPackageLoaded
+"true if the oom (metrics) package is loaded"
+"/ access via at: to prevent preference-detector from including oom as
+"/ prerequisite for NewLaucher.
+^ (Smalltalk at:#'OOM::MetricVisualizer') isBehavior
+!
 packageDialogVisible
 "/    ^ true.
 ^ false
 !
 ^ holder
 !
 showActiveHelpMenuItem
 ^ false
+!
+smaccPackageLoaded
+"true if the oom (metrics) package is loaded"
+"/ access via at: to prevent preference-detector from including oom as
+"/ prerequisite for NewLaucher.
+^ (Smalltalk at:#'SmaCC::SmaccParserGenerator') isBehavior
 !
 smallTeamAvailable
 ^ SmallTeam notNil
 ! !
 !NewLauncher class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.390 2009-09-27 09:49:24 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.391 2009-10-12 10:09:25 cg Exp $'
+!
+version_CVS
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.391 2009-10-12 10:09:25 cg Exp $'
 ! !

changeset 8951	676d72f909f9
parent 8794	59ab103964f9
child 8968	2d6a60835c99