--- a/NewLauncher.st Wed Jun 26 21:15:12 2013 +0200
+++ b/NewLauncher.st Wed Jun 26 21:19:23 2013 +0200
@@ -2691,301 +2691,307 @@
^
#(Menu
- (
- (MenuItem
- activeHelpKey: toolsWorkspace
- label: 'Workspace'
- itemValue: openWorkspace
- nameKey: workspace
- labelImage: (ResourceRetriever ToolbarIconLibrary startWorkspaceIcon 'Workspace')
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: monticelloRepositoryAvailable
- label: 'Monticello Repository Browser'
- itemValue: startMonticelloRepositoryBrowser
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: 'Programming'
- nameKey: programming
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: toolsChangesBrowser
- label: 'Change File Browser'
- itemValue: startChangesBrowser
- nameKey: changesBrowser
- labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon 'Change File Browser')
- )
- (MenuItem
- activeHelpKey: toolsSUnit
- label: 'SUnit Test Runner'
- itemValue: startSUnitTestRunner
- nameKey: startSUnitTestRunner
- labelImage: (ResourceRetriever NewLauncher startSUnitIcon 'SUnit Test Runner')
- )
- (MenuItem
- activeHelpKey: toolsToDoList
- label: 'Programmer''s ToDo List'
- itemValue: startToDoListBrowser
- nameKey: startToDoListBrowser
- )
- (MenuItem
- activeHelpKey: toolsOOM
- enabled: oomPackageLoaded
- label: 'Code Metrics Browser'
- itemValue: startOOMBrowser
- nameKey: startOOMBrowser
- )
- (MenuItem
- activeHelpKey: toolsSmaCC
- enabled: smaccPackageLoaded
- label: 'SmaCC ParserGenerator'
- itemValue: startSmaCCParserGenerator
- nameKey: startSmaCCParserGenerator
- )
- (MenuItem
- activeHelpKey: toolsInternationalLanguageTranslationEditor
- label: 'International Language Translation Editor'
- itemValue: startInternationalLanguageTranslationEditor
- labelImage: (ResourceRetriever ToolbarIconLibrary languagesIcon 'International Language Translation Editor')
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- activeHelpKey: classesDebugging
- label: 'Debugging'
- nameKey: debugging
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: breakPointBrowser
- label: 'Breakpoint Browser'
- itemValue: openApplication:
- argument: 'Tools::BreakpointBrowser'
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: classesShowTracePoints
- label: 'Show all Break && Trace Points'
- itemValue: browseAllBreakAndTracePoints
- )
- (MenuItem
- activeHelpKey: classesRemoveAllTracePoints
- label: 'Remove all Break && Trace Points'
- itemValue: removeAllBreakAndTracePoints
- )
- (MenuItem
- activeHelpKey: classesStopIgnoringHalts
- enabled: debuggerHasIgnoredHalts
- label: 'Stop Ignoring Halts/Breakpoints'
- itemValue: stopIgnoringHalts
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Halt when Text is Sent to Transcript...'
- itemValue: openTranscriptDebugDialog
- )
- (MenuItem
- label: 'Trace when Text is Sent to Transcript...'
- itemValue: openTranscriptTraceDialog
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: enableGlobalCoverageAnalysis
- label: 'Clear all Coverage Info (Systemwide)'
- itemValue: clearAllCoverageInfo
- )
- (MenuItem
- activeHelpKey: enableGlobalCoverageAnalysis
- label: 'Enable Coverage Analysis in all Processes'
- itemValue: enableGlobalCoverageAnalysis
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'GUI'
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: toolsGUIPainter
- label: 'GUI Painter'
- itemValue: openApplication:
- nameKey: guiPainter
- labelImage: (ResourceRetriever ToolbarIconLibrary startUIPainterIcon 'GUI Painter')
- argument: 'UIPainter'
- )
- (MenuItem
- activeHelpKey: toolsMenuEditor
- label: 'Menu Editor'
- itemValue: openApplication:
- nameKey: menuEditor
- labelImage: (ResourceRetriever ToolbarIconLibrary startMenuEditorIcon 'Menu Editor')
- argument: 'MenuEditor'
- )
- (MenuItem
- activeHelpKey: toolsImageEditor
- label: 'Image Editor'
- itemValue: openApplication:
- nameKey: imageEditor
- labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon 'Image Editor')
- argument: 'ImageEditor'
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Bug Reporter'
- itemValue: startBugMessages
- nameKey: bugMessages
- isVisible: bugReporterAvailable
- labelImage: (ResourceRetriever NewLauncher bugReporterIcon 'Bug Reporter')
- )
- (MenuItem
- label: 'SQL Workspace'
- itemValue: startSQLWorkspace
- isVisible: sqlWorkspaceItemVisible
- )
- (MenuItem
- activeHelpKey: fileApplicationBuilder
- label: 'Application Packager (exe-Builder)'
- itemValue: openApplication:
- labelImage: (ResourceRetriever ToolbarIconLibrary projectBuilderIcon 'Application Packager (exe-Builder)')
- argument: 'Tools::ProjectBuilderAssistantApplication'
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Recently Opened'
- submenuChannel: recentlyOpenedApplicationsMenu
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: toolsMisc
- label: 'Misc'
- nameKey: misc
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: toolsMiscProjects
- label: 'Projects'
- isVisible: false
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: toolsMiscProjectsNewProject
- label: 'New Project'
- itemValue: newProject
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: toolsMiscProjectsSelectProject
- label: 'Select Project...'
- itemValue: selectProject
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: '-'
- isVisible: false
- )
- (MenuItem
- activeHelpKey: toolsMiscNewLauncher
- label: 'Reopen Launcher'
- itemValue: startNewLauncher
- )
- (MenuItem
- activeHelpKey: demosRemoteLauncher
- enabled: canOpenRemoteLauncher
- label: 'Remote Launcher...'
- itemValue: startRemoteLauncher
- )
- (MenuItem
- activeHelpKey: demosPDALauncher
- label: 'PDA Launcher...'
- itemValue: startPDALauncher
- isVisible: hasPDALauncher
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- activeHelpKey: toolsMiscNewChangesBrowser
- label: 'New Changes Browser'
- itemValue: startNewChangesBrowser
- )
- (MenuItem
- activeHelpKey: toolsMiscOldChangesBrowser
- label: 'Old Changes Browser'
- itemValue: startOldChangesBrowser
- )
- (MenuItem
- label: '-'
- isVisible: canDoTerminal
- )
- (MenuItem
- activeHelpKey: toolsTerminal
- label: 'Terminal'
- itemValue: openTerminal
- isVisible: canDoTerminal
- )
- (MenuItem
- label: '-'
- isVisible: canDoTerminal
- )
- (MenuItem
- label: 'Inspect Global Variables'
- itemValue: inspectGlobalVariables
- )
- (MenuItem
- label: 'Inspect Workspace Variables'
- itemValue: inspectWorkspaceVariables
- )
- (MenuItem
- label: 'Remove all Workspace Variables'
- itemValue: removeAllWorkspaceVariables
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ activeHelpKey: toolsOpenApplication
+ label: 'Open Application...'
+ itemValue: findApplicationAndOpen
+ nameKey: openApplication
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: toolsWorkspace
+ label: 'Workspace'
+ itemValue: openWorkspace
+ nameKey: workspace
+ labelImage: (ResourceRetriever ToolbarIconLibrary startWorkspaceIcon 'Workspace')
+ )
+ (MenuItem
+ enabled: monticelloRepositoryAvailable
+ label: 'Monticello Repository Browser'
+ itemValue: startMonticelloRepositoryBrowser
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: 'Programming'
+ nameKey: programming
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: toolsChangesBrowser
+ label: 'Change File Browser'
+ itemValue: startChangesBrowser
+ nameKey: changesBrowser
+ labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon 'Change File Browser')
+ )
+ (MenuItem
+ activeHelpKey: toolsSUnit
+ label: 'SUnit Test Runner'
+ itemValue: startSUnitTestRunner
+ nameKey: startSUnitTestRunner
+ labelImage: (ResourceRetriever NewLauncher startSUnitIcon 'SUnit Test Runner')
+ )
+ (MenuItem
+ activeHelpKey: toolsToDoList
+ label: 'Programmer''s ToDo List'
+ itemValue: startToDoListBrowser
+ nameKey: startToDoListBrowser
+ )
+ (MenuItem
+ activeHelpKey: toolsOOM
+ enabled: oomPackageLoaded
+ label: 'Code Metrics Browser'
+ itemValue: startOOMBrowser
+ nameKey: startOOMBrowser
+ )
+ (MenuItem
+ activeHelpKey: toolsSmaCC
+ enabled: smaccPackageLoaded
+ label: 'SmaCC ParserGenerator'
+ itemValue: startSmaCCParserGenerator
+ nameKey: startSmaCCParserGenerator
+ )
+ (MenuItem
+ activeHelpKey: toolsInternationalLanguageTranslationEditor
+ label: 'International Language Translation Editor'
+ itemValue: startInternationalLanguageTranslationEditor
+ labelImage: (ResourceRetriever ToolbarIconLibrary languagesIcon 'International Language Translation Editor')
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ activeHelpKey: classesDebugging
+ label: 'Debugging'
+ nameKey: debugging
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: breakPointBrowser
+ label: 'Breakpoint Browser'
+ itemValue: openApplication:
+ argument: 'Tools::BreakpointBrowser'
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: classesShowTracePoints
+ label: 'Show all Break && Trace Points'
+ itemValue: browseAllBreakAndTracePoints
+ )
+ (MenuItem
+ activeHelpKey: classesRemoveAllTracePoints
+ label: 'Remove all Break && Trace Points'
+ itemValue: removeAllBreakAndTracePoints
+ )
+ (MenuItem
+ activeHelpKey: classesStopIgnoringHalts
+ enabled: debuggerHasIgnoredHalts
+ label: 'Stop Ignoring Halts/Breakpoints'
+ itemValue: stopIgnoringHalts
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Halt when Text is Sent to Transcript...'
+ itemValue: openTranscriptDebugDialog
+ )
+ (MenuItem
+ label: 'Trace when Text is Sent to Transcript...'
+ itemValue: openTranscriptTraceDialog
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: enableGlobalCoverageAnalysis
+ label: 'Clear all Coverage Info (Systemwide)'
+ itemValue: clearAllCoverageInfo
+ )
+ (MenuItem
+ activeHelpKey: enableGlobalCoverageAnalysis
+ label: 'Enable Coverage Analysis in all Processes'
+ itemValue: enableGlobalCoverageAnalysis
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'GUI'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: toolsGUIPainter
+ label: 'GUI Painter'
+ itemValue: openApplication:
+ nameKey: guiPainter
+ labelImage: (ResourceRetriever ToolbarIconLibrary startUIPainterIcon 'GUI Painter')
+ argument: 'UIPainter'
+ )
+ (MenuItem
+ activeHelpKey: toolsMenuEditor
+ label: 'Menu Editor'
+ itemValue: openApplication:
+ nameKey: menuEditor
+ labelImage: (ResourceRetriever ToolbarIconLibrary startMenuEditorIcon 'Menu Editor')
+ argument: 'MenuEditor'
+ )
+ (MenuItem
+ activeHelpKey: toolsImageEditor
+ label: 'Image Editor'
+ itemValue: openApplication:
+ nameKey: imageEditor
+ labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon 'Image Editor')
+ argument: 'ImageEditor'
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Bug Reporter'
+ itemValue: startBugMessages
+ nameKey: bugMessages
+ isVisible: bugReporterAvailable
+ labelImage: (ResourceRetriever NewLauncher bugReporterIcon 'Bug Reporter')
+ )
+ (MenuItem
+ label: 'SQL Workspace'
+ itemValue: startSQLWorkspace
+ isVisible: sqlWorkspaceItemVisible
+ )
+ (MenuItem
+ activeHelpKey: fileApplicationBuilder
+ label: 'Application Packager (exe-Builder)'
+ itemValue: openApplication:
+ labelImage: (ResourceRetriever ToolbarIconLibrary projectBuilderIcon 'Application Packager (exe-Builder)')
+ argument: 'Tools::ProjectBuilderAssistantApplication'
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Recently Opened'
+ submenuChannel: recentlyOpenedApplicationsMenu
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: toolsMisc
+ label: 'Misc'
+ nameKey: misc
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: toolsMiscProjects
+ label: 'Projects'
+ isVisible: false
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: toolsMiscProjectsNewProject
+ label: 'New Project'
+ itemValue: newProject
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: toolsMiscProjectsSelectProject
+ label: 'Select Project...'
+ itemValue: selectProject
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ activeHelpKey: toolsMiscNewLauncher
+ label: 'Reopen Launcher'
+ itemValue: startNewLauncher
+ )
+ (MenuItem
+ activeHelpKey: demosRemoteLauncher
+ enabled: canOpenRemoteLauncher
+ label: 'Remote Launcher...'
+ itemValue: startRemoteLauncher
+ )
+ (MenuItem
+ activeHelpKey: demosPDALauncher
+ label: 'PDA Launcher...'
+ itemValue: startPDALauncher
+ isVisible: hasPDALauncher
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: toolsMiscNewChangesBrowser
+ label: 'New Changes Browser'
+ itemValue: startNewChangesBrowser
+ )
+ (MenuItem
+ activeHelpKey: toolsMiscOldChangesBrowser
+ label: 'Old Changes Browser'
+ itemValue: startOldChangesBrowser
+ )
+ (MenuItem
+ label: '-'
+ isVisible: canDoTerminal
+ )
+ (MenuItem
+ activeHelpKey: toolsTerminal
+ label: 'Terminal'
+ itemValue: openTerminal
+ isVisible: canDoTerminal
+ )
+ (MenuItem
+ label: '-'
+ isVisible: canDoTerminal
+ )
+ (MenuItem
+ label: 'Inspect Global Variables'
+ itemValue: inspectGlobalVariables
+ )
+ (MenuItem
+ label: 'Inspect Workspace Variables'
+ itemValue: inspectWorkspaceVariables
+ )
+ (MenuItem
+ label: 'Remove all Workspace Variables'
+ itemValue: removeAllWorkspaceVariables
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
!
@@ -4666,6 +4672,16 @@
"Created: / 28-10-2011 / 20:31:28 / cg"
!
+findApplicationAndOpen
+ |cls|
+
+ cls := UserPreferences current systemBrowserClass
+ askForClassWithFilter:[:cls | cls isVisualStartable].
+ cls notNil ifTrue:[
+ cls open
+ ]
+!
+
findClassAndBrowse
|cls|
@@ -4984,14 +5000,14 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.464 2013-06-26 18:12:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.465 2013-06-26 19:19:23 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.464 2013-06-26 18:12:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.465 2013-06-26 19:19:23 cg Exp $'
!
version_SVN
- ^ '$Id: NewLauncher.st,v 1.464 2013-06-26 18:12:01 cg Exp $'
+ ^ '$Id: NewLauncher.st,v 1.465 2013-06-26 19:19:23 cg Exp $'
! !