hg/stx-libtool: comparison NewLauncher.st

equal deleted inserted replaced

-:235b77901045
+:4714b9640528
 space:true
 [exEnd]
 "
 ! !
 !NewLauncher class methodsFor:'accessing'!
 label
 ^'ST/X Launcher'
 ! !
 !NewLauncher class methodsFor:'defaults'!
 defaultInfoLineTemplate
 "available values:
 "Created: / 16.8.1998 / 13:11:58 / cg"
 "Modified: / 17.8.1998 / 10:07:09 / cg"
 ! !
 !NewLauncher class methodsFor:'help specs'!
 flyByHelpSpec
 <resource: #help>
 )
 "Modified: / 21-09-2012 / 10:59:33 / cg"
 ! !
 !NewLauncher class methodsFor:'interface specs'!
 windowSpec
 ^ self windowSpec_old.
 "/ ^ self windowSpec_new.
 NewLauncher new openInterface:#windowSpec_new
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: #'windowSpec_new'
+	name: #'windowSpec_new'
-window:
+	window:
 (WindowSpec
-label: 'ST/X Launcher'
+	  label: 'ST/X Launcher'
-name: 'ST/X Launcher'
+	  name: 'ST/X Launcher'
-min: (Point 374 44)
+	  min: (Point 374 44)
-bounds: (Rectangle 0 0 374 202)
+	  bounds: (Rectangle 0 0 374 202)
-menu: menu
+	  menu: menu
-icon: windowIcon
+	  icon: windowIcon
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(MenuPanelSpec
+	   (MenuPanelSpec
-name: 'menuToolbarView'
+	      name: 'menuToolbarView'
-layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
+	      layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
-menu: menuToolbar
+	      menu: menuToolbar
-)
+	    )
-(NoteBookViewSpec
+	   (NoteBookViewSpec
-name: 'NoteBook1'
+	      name: 'NoteBook1'
-layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
+	      layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
-level: 0
+	      level: 0
-model: selectedTabHolder
+	      model: selectedTabHolder
-menu: tabList
+	      menu: tabList
-direction: bottom
+	      direction: bottom
-useIndex: true
+	      useIndex: true
-translateLabel: true
+	      translateLabel: true
-canvas: noteBookCanvasHolder
+	      canvas: noteBookCanvasHolder
-keepCanvasAlive: true
+	      keepCanvasAlive: true
-)
+	    )
-(UISubSpecification
+	   (UISubSpecification
-name: 'infoBarSubSpec'
+	      name: 'infoBarSubSpec'
-layout: (LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
+	      layout: (LayoutFrame 0 0.0 -26 1 -16 1.0 0 1.0)
-majorKey: ToolApplicationModel
+	      majorKey: ToolApplicationModel
-minorKey: windowSpecForInfoBarWithClock
+	      minorKey: windowSpecForInfoBarWithClock
-)
+	      keepSpaceForOSXResizeHandleH: true
-)
+	    )
+	   )
-)
+	)
 )
 !
 windowSpec_old
 "This resource specification was automatically generated
 NewLauncher new openInterface:#windowSpec_old
 "
 <resource: #canvas>
 ^
 #(FullSpec
-name: #'windowSpec_old'
+	name: #'windowSpec_old'
-window:
+	window:
 (WindowSpec
-label: 'ST/X Launcher'
+	  label: 'ST/X Launcher'
-name: 'ST/X Launcher'
+	  name: 'ST/X Launcher'
-min: (Point 540 300)
+	  min: (Point 540 300)
-bounds: (Rectangle 0 0 291 202)
+	  bounds: (Rectangle 0 0 540 300)
-menu: menu
+	  menu: menu
-icon: windowIcon
+	  icon: windowIcon
-)
+	)
-component:
+	component:
 (SpecCollection
-collection: (
+	  collection: (
-(MenuPanelSpec
+	   (MenuPanelSpec
-name: 'menuToolbarView'
+	      name: 'menuToolbarView'
-layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
+	      layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
-menu: menuToolbar
+	      menu: menuToolbar
-)
+	    )
-(ViewSpec
+	   (ViewSpec
-name: 'Box1'
+	      name: 'Box1'
-layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
+	      layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
-level: 1
+	      level: 1
-component:
+	      component:
-(SpecCollection
+	     (SpecCollection
-collection: (
+		collection: (
-(WorkspaceSpec
+		 (WorkspaceSpec
-name: 'transcriptView'
+		    name: 'transcriptView'
-layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+		    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-hasHorizontalScrollBar: true
+		    hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+		    hasVerticalScrollBar: true
-miniScrollerHorizontal: true
+		    miniScrollerHorizontal: true
-hasKeyboardFocusInitially: false
+		    hasKeyboardFocusInitially: false
-)
+		  )
-)
+		 )
-)
+	      )
-)
+	    )
-(UISubSpecification
+	   (UISubSpecification
-name: 'infoBarSubSpec'
+	      name: 'infoBarSubSpec'
-layout: (LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
+	      layout: (LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
-majorKey: ToolApplicationModel
+	      majorKey: ToolApplicationModel
-minorKey: windowSpecForInfoBarWithClock
+	      minorKey: windowSpecForInfoBarWithClock
-)
+	      keepSpaceForOSXResizeHandleH: true
-)
+	    )
+	   )
-)
+	)
 )
 !
 windowSpec_pda
 "This resource specification was automatically generated
 )
 )
 ! !
 !NewLauncher class methodsFor:'menu configuration'!
 addMenuItem:newItem from:anApplicationWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space
 |positionSpecOrNil itemNameOrNil before launcherApp|
 Transcript topView application
 removeUserTool:'Foo'
 "
 ! !
 !NewLauncher class methodsFor:'menu specs'!
 aboutMenu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 (Menu new fromLiteralArrayEncoding:(NewLauncher classesMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-activeHelpKey: classesSystemBrowser
+	    activeHelpKey: classesSystemBrowser
-label: 'System Browser'
+	    label: 'System Browser'
-itemValue: openApplication:
+	    itemValue: openApplication:
-nameKey: systemBrowser
+	    nameKey: systemBrowser
-submenuChannel: menuClassHistory
+	    submenuChannel: menuClassHistory
-labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon 'System Browser')
+	    labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon 'System Browser')
-argument: 'Tools::NewSystemBrowser'
+	    argument: 'Tools::NewSystemBrowser'
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: startChangeSetBrowser
+	    activeHelpKey: startChangeSetBrowser
-label: 'Recent Changes'
+	    label: 'Recent Changes'
-itemValue: startChangeSetBrowser
+	    itemValue: startChangeSetBrowser
-nameKey: startChangeSetBrowser
+	    nameKey: startChangeSetBrowser
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: classesClassBrowserOnChanges
+	    activeHelpKey: classesClassBrowserOnChanges
-label: 'Changed Classes'
+	    label: 'Changed Classes'
-itemValue: startClassBrowserOnChanges
+	    itemValue: startClassBrowserOnChanges
-nameKey: classBrowserOnChanges
+	    nameKey: classBrowserOnChanges
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: classBrowserOnChangedMethods
+	    activeHelpKey: classBrowserOnChangedMethods
-label: 'Changed Methods'
+	    label: 'Changed Methods'
-itemValue: startClassBrowserOnChangedMethods
+	    itemValue: startClassBrowserOnChangedMethods
-nameKey: classBrowserOnChangedMethods
+	    nameKey: classBrowserOnChangedMethods
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: startSmallTeamChangeSetBrowser
+	    activeHelpKey: startSmallTeamChangeSetBrowser
-label: 'Recent Changes on SmallTeam Host'
+	    label: 'Recent Changes on SmallTeam Host'
-isVisible: smallTeamAvailable
+	    isVisible: smallTeamAvailable
-submenuChannel: startBrowserOnSmallTeamChangesMenu
+	    submenuChannel: startBrowserOnSmallTeamChangesMenu
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Special Browsers'
+	    label: 'Special Browsers'
-submenuChannel: classesSpecialBrowserMenu
+	    submenuChannel: classesSpecialBrowserMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: classesClassTreeBrowser
+	    activeHelpKey: classesClassTreeBrowser
-label: 'Class Tree'
+	    label: 'Class Tree'
-itemValue: openApplication:
+	    itemValue: openApplication:
-argument: 'ClassTreeGraphView'
+	    argument: 'ClassTreeGraphView'
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: classesImplementors
+	    activeHelpKey: classesImplementors
-label: 'Implementors Of...'
+	    label: 'Implementors Of...'
-itemValue: browseImplementors
+	    itemValue: browseImplementors
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: classesSenders
+	    activeHelpKey: classesSenders
-label: 'Senders Of...'
+	    label: 'Senders Of...'
-itemValue: browseSenders
+	    itemValue: browseSenders
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Method Finder'
+	    label: 'Method Finder'
-itemValue: openMethodFinder
+	    itemValue: openMethodFinder
-)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary methodFinder24x24Icon 'Method Finder')
-(MenuItem
+	  )
-activeHelpKey: classesResourceMethods
+	 (MenuItem
-label: 'Find Resource Methods...'
+	    activeHelpKey: classesResourceMethods
-itemValue: browseResources
+	    label: 'Find Resource Methods...'
-)
+	    itemValue: browseResources
-(MenuItem
+	  )
-label: '-'
+	 (MenuItem
-)
+	    label: '-'
-(MenuItem
+	  )
-activeHelpKey: classesSpecial
+	 (MenuItem
-label: 'Special'
+	    activeHelpKey: classesSpecial
-nameKey: special
+	    label: 'Special'
-submenu:
+	    nameKey: special
-(Menu
+	    submenu:
-(
+	   (Menu
-(MenuItem
+	      (
-activeHelpKey: classesSpecialReferencesToUnboundGlobals
+	       (MenuItem
-label: 'References to Unbound Globals'
+		  activeHelpKey: classesSpecialReferencesToUnboundGlobals
-itemValue: browseUnboundGlobals
+		  label: 'References to Unbound Globals'
-)
+		  itemValue: browseUnboundGlobals
-(MenuItem
+		)
-activeHelpKey: classesSpecialReferencesToUndeclared
+	       (MenuItem
-label: 'References to Undeclared'
+		  activeHelpKey: classesSpecialReferencesToUndeclared
-itemValue: browseUndeclared
+		  label: 'References to Undeclared'
-)
+		  itemValue: browseUndeclared
-(MenuItem
+		)
-activeHelpKey: classesSpecialReferencesToUndeclared
+	       (MenuItem
-label: 'Clear Undeclared Variables'
+		  activeHelpKey: classesSpecialReferencesToUndeclared
-itemValue: clearUndeclaredVariables
+		  label: 'Clear Undeclared Variables'
-)
+		  itemValue: clearUndeclaredVariables
-)
+		)
-nil
+	       )
-nil
+	      nil
-)
+	      nil
-)
+	    )
-)
+	  )
-nil
+	 )
-nil
+	nil
+	nil
 )
 !
 classesSpecialBrowserMenu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 "Do not manually edit this!! If it is corrupted,
 the MenuEditor may not be able to read the specification."
 "
 MenuEditor new openOnClass:NewLauncher andSelector:#menu
 (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'About'
+	    label: 'About'
-nameKey: about
+	    nameKey: about
-translateLabel: true
+	    translateLabel: true
-submenuChannel: aboutMenu
+	    submenuChannel: aboutMenu
-labelImage: (ResourceRetriever nil menuIcon)
+	    labelImage: (ResourceRetriever nil menuIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'File'
+	    label: 'File'
-nameKey: file
+	    nameKey: file
-translateLabel: true
+	    translateLabel: true
-submenuChannel: fileMenu
+	    submenuChannel: fileMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Classes'
+	    label: 'Classes'
-nameKey: classes
+	    nameKey: classes
-translateLabel: true
+	    translateLabel: true
-submenuChannel: classesMenu
+	    submenuChannel: classesMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Tools'
+	    label: 'Tools'
-nameKey: tools
+	    nameKey: tools
-translateLabel: true
+	    translateLabel: true
-submenuChannel: toolsMenu
+	    submenuChannel: toolsMenu
-"JV@2012-05-05: If not kept, installed menu items are not shown!!!!!!
+	  )
-Either keep it or patch it whenever popped up."
+	 (MenuItem
-keepLinkedMenu: true
+	    label: 'System'
-)
+	    nameKey: system
-(MenuItem
+	    translateLabel: true
-label: 'System'
+	    submenuChannel: systemMenu
-nameKey: system
+	  )
-translateLabel: true
+	 (MenuItem
-submenuChannel: systemMenu
+	    label: 'Settings'
-)
+	    nameKey: settings
-(MenuItem
+	    translateLabel: true
-label: 'Settings'
+	    isVisible: useOldSettingsApplication
-nameKey: settings
+	    submenuChannel: settingsMenu
-translateLabel: true
+	  )
-isVisible: useOldSettingsApplication
+	 (MenuItem
-submenuChannel: settingsMenu
+	    label: 'Windows'
-)
+	    nameKey: windows
-(MenuItem
+	    translateLabel: true
-label: 'Windows'
+	    submenuChannel: windowsMenu
-nameKey: windows
+	  )
-translateLabel: true
+	 (MenuItem
-submenuChannel: windowsMenu
+	    label: 'Demos'
-)
+	    nameKey: demos
-(MenuItem
+	    translateLabel: true
-label: 'Demos'
+	    submenuChannel: demosMenu
-nameKey: demos
+	  )
-translateLabel: true
+	 (MenuItem
-submenuChannel: demosMenu
+	    label: 'MENU_Help'
-)
+	    nameKey: help
-(MenuItem
+	    translateLabel: true
-label: 'MENU_Help'
+	    startGroup: conditionalRight
-nameKey: help
+	    submenuChannel: helpMenu
-translateLabel: true
+	  )
-startGroup: conditionalRight
+	 )
-submenuChannel: helpMenu
+	nil
-)
+	nil
-)
-nil
-nil
 )
-"Modified (comment): / 05-05-2012 / 19:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 menuOpenWorkspaceTypes
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 (Menu new fromLiteralArrayEncoding:(NewLauncher toolsMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-activeHelpKey: toolsWorkspace
+	    activeHelpKey: toolsWorkspace
-label: 'Workspace'
+	    label: 'Workspace'
-itemValue: openWorkspace
+	    itemValue: openWorkspace
-nameKey: workspace
+	    nameKey: workspace
-labelImage: (ResourceRetriever ToolbarIconLibrary startWorkspaceIcon 'Workspace')
+	    labelImage: (ResourceRetriever ToolbarIconLibrary startWorkspaceIcon 'Workspace')
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: monticelloRepositoryAvailable
+	    enabled: monticelloRepositoryAvailable
-label: 'Monticello Repository Browser'
+	    label: 'Monticello Repository Browser'
-itemValue: startMonticelloRepositoryBrowser
+	    itemValue: startMonticelloRepositoryBrowser
-showBusyCursorWhilePerforming: true
+	    showBusyCursorWhilePerforming: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Programming'
+	    label: 'Programming'
-nameKey: programming
+	    nameKey: programming
-"JV@2012-05-05: If not kept, installed menu items are not shown!!!!!!
+	    submenu:
-Either keep it or patch it whenever popped up."
+	   (Menu
-keepLinkedMenu: true
+	      (
-submenu:
+	       (MenuItem
-(Menu
+		  activeHelpKey: toolsChangesBrowser
-(
+		  label: 'Change File Browser'
-(MenuItem
+		  itemValue: startChangesBrowser
-activeHelpKey: toolsChangesBrowser
+		  nameKey: changesBrowser
-label: 'Change File Browser'
+		  labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon 'Change File Browser')
-itemValue: startChangesBrowser
+		)
-nameKey: changesBrowser
+	       (MenuItem
-labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon 'Change File Browser')
+		  activeHelpKey: toolsSUnit
-)
+		  label: 'SUnit Test Runner'
-(MenuItem
+		  itemValue: startSUnitTestRunner
-activeHelpKey: toolsSUnit
+		  nameKey: startSUnitTestRunner
-label: 'SUnit Test Runner'
+		  labelImage: (ResourceRetriever NewLauncher startSUnitIcon 'SUnit Test Runner')
-itemValue: startSUnitTestRunner
+		)
-nameKey: startSUnitTestRunner
+	       (MenuItem
-labelImage: (ResourceRetriever NewLauncher startSUnitIcon 'SUnit Test Runner')
+		  activeHelpKey: toolsToDoList
-)
+		  label: 'Programmer''s ToDo List'
-(MenuItem
+		  itemValue: startToDoListBrowser
-activeHelpKey: toolsToDoList
+		  nameKey: startToDoListBrowser
-label: 'Programmer''s ToDo List'
+		)
-itemValue: startToDoListBrowser
+	       (MenuItem
-nameKey: startToDoListBrowser
+		  activeHelpKey: toolsOOM
-)
+		  enabled: oomPackageLoaded
-(MenuItem
+		  label: 'Code Metrics Browser'
-activeHelpKey: toolsOOM
+		  itemValue: startOOMBrowser
-enabled: oomPackageLoaded
+		  nameKey: startOOMBrowser
-label: 'Code Metrics Browser'
+		)
-itemValue: startOOMBrowser
+	       (MenuItem
-nameKey: startOOMBrowser
+		  activeHelpKey: toolsSmaCC
-)
+		  enabled: smaccPackageLoaded
-(MenuItem
+		  label: 'SmaCC ParserGenerator'
-activeHelpKey: toolsSmaCC
+		  itemValue: startSmaCCParserGenerator
-enabled: smaccPackageLoaded
+		  nameKey: startSmaCCParserGenerator
-label: 'SmaCC ParserGenerator'
+		)
-itemValue: startSmaCCParserGenerator
+	       (MenuItem
-nameKey: startSmaCCParserGenerator
+		  activeHelpKey: toolsInternationalLanguageTranslationEditor
-)
+		  label: 'International Language Translation Editor'
-(MenuItem
+		  itemValue: startInternationalLanguageTranslationEditor
-activeHelpKey: toolsInternationalLanguageTranslationEditor
+		  labelImage: (ResourceRetriever ToolbarIconLibrary languagesIcon 'International Language Translation Editor')
-label: 'International Language Translation Editor'
+		)
-itemValue: startInternationalLanguageTranslationEditor
+	       )
-labelImage: (ResourceRetriever ToolbarIconLibrary languagesIcon 'International Language Translation Editor')
+	      nil
-)
+	      nil
-)
+	    )
-nil
+	  )
-nil
+	 (MenuItem
-)
+	    activeHelpKey: classesDebugging
-)
+	    label: 'Debugging'
-(MenuItem
+	    nameKey: debugging
-activeHelpKey: classesDebugging
+	    submenu:
-label: 'Debugging'
+	   (Menu
-nameKey: debugging
+	      (
-submenu:
+	       (MenuItem
-(Menu
+		  activeHelpKey: breakPointBrowser
-(
+		  label: 'Breakpoint Browser'
-(MenuItem
+		  itemValue: openApplication:
-activeHelpKey: breakPointBrowser
+		  argument: 'Tools::BreakpointBrowser'
-label: 'Breakpoint Browser'
+		)
-itemValue: openApplication:
+	       (MenuItem
-argument: 'Tools::BreakpointBrowser'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  activeHelpKey: classesShowTracePoints
-)
+		  label: 'Show all Break && Trace Points'
-(MenuItem
+		  itemValue: browseAllBreakAndTracePoints
-activeHelpKey: classesShowTracePoints
+		)
-label: 'Show all Break && Trace Points'
+	       (MenuItem
-itemValue: browseAllBreakAndTracePoints
+		  activeHelpKey: classesRemoveAllTracePoints
-)
+		  label: 'Remove all Break && Trace Points'
-(MenuItem
+		  itemValue: removeAllBreakAndTracePoints
-activeHelpKey: classesRemoveAllTracePoints
+		)
-label: 'Remove all Break && Trace Points'
+	       (MenuItem
-itemValue: removeAllBreakAndTracePoints
+		  activeHelpKey: classesStopIgnoringHalts
-)
+		  enabled: debuggerHasIgnoredHalts
-(MenuItem
+		  label: 'Stop Ignoring Halts/Breakpoints'
-activeHelpKey: classesStopIgnoringHalts
+		  itemValue: stopIgnoringHalts
-enabled: debuggerHasIgnoredHalts
+		)
-label: 'Stop Ignoring Halts/Breakpoints'
+	       (MenuItem
-itemValue: stopIgnoringHalts
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: 'Halt when Text is Sent to Transcript...'
-)
+		  itemValue: openTranscriptDebugDialog
-(MenuItem
+		)
-label: 'Halt when Text is Sent to Transcript...'
+	       (MenuItem
-itemValue: openTranscriptDebugDialog
+		  label: 'Trace when Text is Sent to Transcript...'
-)
+		  itemValue: openTranscriptTraceDialog
-(MenuItem
+		)
-label: 'Trace when Text is Sent to Transcript...'
+	       (MenuItem
-itemValue: openTranscriptTraceDialog
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  activeHelpKey: enableGlobalCoverageAnalysis
-)
+		  label: 'Clear all Coverage Info (Systemwide)'
-(MenuItem
+		  itemValue: clearAllCoverageInfo
-activeHelpKey: enableGlobalCoverageAnalysis
+		)
-label: 'Clear all Coverage Info (Systemwide)'
+	       (MenuItem
-itemValue: clearAllCoverageInfo
+		  activeHelpKey: enableGlobalCoverageAnalysis
-)
+		  label: 'Enable Coverage Analysis in all Processes'
-(MenuItem
+		  itemValue: enableGlobalCoverageAnalysis
-activeHelpKey: enableGlobalCoverageAnalysis
+		)
-label: 'Enable Coverage Analysis in all Processes'
+	       )
-itemValue: enableGlobalCoverageAnalysis
+	      nil
-)
+	      nil
-)
+	    )
-nil
+	  )
-nil
+	 (MenuItem
-)
+	    label: 'GUI'
-)
+	    submenu:
-(MenuItem
+	   (Menu
-label: 'GUI'
+	      (
-submenu:
+	       (MenuItem
-(Menu
+		  activeHelpKey: toolsGUIPainter
-(
+		  label: 'GUI Painter'
-(MenuItem
+		  itemValue: openApplication:
-activeHelpKey: toolsGUIPainter
+		  nameKey: guiPainter
-label: 'GUI Painter'
+		  labelImage: (ResourceRetriever ToolbarIconLibrary startUIPainterIcon 'GUI Painter')
-itemValue: openApplication:
+		  argument: 'UIPainter'
-nameKey: guiPainter
+		)
-labelImage: (ResourceRetriever ToolbarIconLibrary startUIPainterIcon 'GUI Painter')
+	       (MenuItem
-argument: 'UIPainter'
+		  activeHelpKey: toolsMenuEditor
-)
+		  label: 'Menu Editor'
-(MenuItem
+		  itemValue: openApplication:
-activeHelpKey: toolsMenuEditor
+		  nameKey: menuEditor
-label: 'Menu Editor'
+		  labelImage: (ResourceRetriever ToolbarIconLibrary startMenuEditorIcon 'Menu Editor')
-itemValue: openApplication:
+		  argument: 'MenuEditor'
-nameKey: menuEditor
+		)
-labelImage: (ResourceRetriever ToolbarIconLibrary startMenuEditorIcon 'Menu Editor')
+	       (MenuItem
-argument: 'MenuEditor'
+		  activeHelpKey: toolsImageEditor
-)
+		  label: 'Image Editor'
-(MenuItem
+		  itemValue: openApplication:
-activeHelpKey: toolsImageEditor
+		  nameKey: imageEditor
-label: 'Image Editor'
+		  labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon 'Image Editor')
-itemValue: openApplication:
+		  argument: 'ImageEditor'
-nameKey: imageEditor
+		)
-labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon 'Image Editor')
+	       )
-argument: 'ImageEditor'
+	      nil
-)
+	      nil
-)
+	    )
-nil
+	  )
-nil
+	 (MenuItem
-)
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: 'Bug Reporter'
-)
+	    itemValue: startBugMessages
-(MenuItem
+	    nameKey: bugMessages
-label: 'Bug Reporter'
+	    isVisible: bugReporterAvailable
-itemValue: startBugMessages
+	    labelImage: (ResourceRetriever NewLauncher bugReporterIcon 'Bug Reporter')
-nameKey: bugMessages
+	  )
-isVisible: bugReporterAvailable
+	 (MenuItem
-labelImage: (ResourceRetriever NewLauncher bugReporterIcon 'Bug Reporter')
+	    label: 'SQL Workspace'
-)
+	    itemValue: startSQLWorkspace
-(MenuItem
+	    isVisible: sqlWorkspaceItemVisible
-label: 'SQL Workspace'
+	  )
-itemValue: startSQLWorkspace
+	 (MenuItem
-isVisible: sqlWorkspaceItemVisible
+	    activeHelpKey: fileApplicationBuilder
-)
+	    label: 'Application Packager (exe-Builder)'
-(MenuItem
+	    itemValue: openApplication:
-activeHelpKey: fileApplicationBuilder
+	    labelImage: (ResourceRetriever ToolbarIconLibrary projectBuilderIcon 'Application Packager (exe-Builder)')
-label: 'Application Packager (exe-Builder)'
+	    argument: 'Tools::ProjectBuilderAssistantApplication'
-itemValue: openApplication:
+	  )
-labelImage: (ResourceRetriever ToolbarIconLibrary projectBuilderIcon 'Application Packager (exe-Builder)')
+	 (MenuItem
-argument: 'Tools::ProjectBuilderAssistantApplication'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: 'Recently Opened'
-)
+	    submenuChannel: recentlyOpenedApplicationsMenu
-(MenuItem
+	  )
-label: 'Recently Opened'
+	 (MenuItem
-submenuChannel: recentlyOpenedApplicationsMenu
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    activeHelpKey: toolsMisc
-)
+	    label: 'Misc'
-(MenuItem
+	    nameKey: misc
-activeHelpKey: toolsMisc
+	    submenu:
-label: 'Misc'
+	   (Menu
-nameKey: misc
+	      (
-"JV@2012-05-05: If not kept, installed menu items are not shown!!!!!!
+	       (MenuItem
-Either keep it or patch it whenever popped up."
+		  activeHelpKey: toolsMiscProjects
-keepLinkedMenu: true
+		  label: 'Projects'
-submenu:
+		  isVisible: false
-(Menu
+		  submenu:
-(
+		 (Menu
-(MenuItem
+		    (
-activeHelpKey: toolsMiscProjects
+		     (MenuItem
-label: 'Projects'
+			activeHelpKey: toolsMiscProjectsNewProject
-isVisible: false
+			label: 'New Project'
-submenu:
+			itemValue: newProject
-(Menu
+		      )
-(
+		     (MenuItem
-(MenuItem
+			label: '-'
-activeHelpKey: toolsMiscProjectsNewProject
+		      )
-label: 'New Project'
+		     (MenuItem
-itemValue: newProject
+			activeHelpKey: toolsMiscProjectsSelectProject
-)
+			label: 'Select Project...'
-(MenuItem
+			itemValue: selectProject
-label: '-'
+		      )
-)
+		     )
-(MenuItem
+		    nil
-activeHelpKey: toolsMiscProjectsSelectProject
+		    nil
-label: 'Select Project...'
+		  )
-itemValue: selectProject
+		)
-)
+	       (MenuItem
-)
+		  label: '-'
-nil
+		  isVisible: false
-nil
+		)
-)
+	       (MenuItem
-)
+		  activeHelpKey: toolsMiscNewLauncher
-(MenuItem
+		  label: 'Reopen Launcher'
-label: '-'
+		  itemValue: startNewLauncher
-isVisible: false
+		)
-)
+	       (MenuItem
-(MenuItem
+		  activeHelpKey: demosRemoteLauncher
-activeHelpKey: toolsMiscNewLauncher
+		  enabled: canOpenRemoteLauncher
-label: 'Reopen Launcher'
+		  label: 'Remote Launcher...'
-itemValue: startNewLauncher
+		  itemValue: startRemoteLauncher
-)
+		)
-(MenuItem
+	       (MenuItem
-activeHelpKey: demosRemoteLauncher
+		  activeHelpKey: demosPDALauncher
-enabled: canOpenRemoteLauncher
+		  label: 'PDA Launcher...'
-label: 'Remote Launcher...'
+		  itemValue: startPDALauncher
-itemValue: startRemoteLauncher
+		  isVisible: hasPDALauncher
-)
+		)
-(MenuItem
+	       (MenuItem
-activeHelpKey: demosPDALauncher
+		  label: '-'
-label: 'PDA Launcher...'
+		)
-itemValue: startPDALauncher
+	       (MenuItem
-isVisible: hasPDALauncher
+		  activeHelpKey: toolsMiscNewChangesBrowser
-)
+		  label: 'New Changes Browser'
-(MenuItem
+		  itemValue: startNewChangesBrowser
-label: '-'
+		)
-)
+	       (MenuItem
-(MenuItem
+		  activeHelpKey: toolsMiscOldChangesBrowser
-activeHelpKey: toolsMiscNewChangesBrowser
+		  label: 'Old Changes Browser'
-label: 'New Changes Browser'
+		  itemValue: startOldChangesBrowser
-itemValue: startNewChangesBrowser
+		)
-)
+	       (MenuItem
-(MenuItem
+		  label: '-'
-activeHelpKey: toolsMiscOldChangesBrowser
+		  isVisible: canDoTerminal
-label: 'Old Changes Browser'
+		)
-itemValue: startOldChangesBrowser
+	       (MenuItem
-)
+		  activeHelpKey: toolsTerminal
-(MenuItem
+		  label: 'Terminal'
-label: '-'
+		  itemValue: openTerminal
-isVisible: canDoTerminal
+		  isVisible: canDoTerminal
-)
+		)
-(MenuItem
+	       (MenuItem
-activeHelpKey: toolsTerminal
+		  label: '-'
-label: 'Terminal'
+		  isVisible: canDoTerminal
-itemValue: openTerminal
+		)
-isVisible: canDoTerminal
+	       (MenuItem
-)
+		  label: 'Inspect Global Variables'
-(MenuItem
+		  itemValue: inspectGlobalVariables
-label: '-'
+		)
-isVisible: canDoTerminal
+	       (MenuItem
-)
+		  label: 'Inspect Workspace Variables'
-(MenuItem
+		  itemValue: inspectWorkspaceVariables
-label: 'Inspect Global Variables'
+		)
-itemValue: inspectGlobalVariables
+	       (MenuItem
-)
+		  label: 'Remove all Workspace Variables'
-(MenuItem
+		  itemValue: removeAllWorkspaceVariables
-label: 'Inspect Workspace Variables'
+		)
-itemValue: inspectWorkspaceVariables
+	       )
-)
+	      nil
-(MenuItem
+	      nil
-label: 'Remove all Workspace Variables'
+	    )
-itemValue: removeAllWorkspaceVariables
+	  )
-)
+	 )
-)
+	nil
-nil
+	nil
-nil
-)
-)
-)
-nil
-nil
 )
 !
 windowsMenu
 "This resource specification was automatically generated
 )
 nil
 nil
 )
 ! !
 !NewLauncher class methodsFor:'oldstyle-menu specs'!
 settingsMenu
 "This resource specification was automatically generated
 )
 nil
 nil
 )
 ! !
 !NewLauncher methodsFor:'accessing'!
 errorListCanvas
 errorListCanvas isNil ifTrue:[
 ]
 ].
 ^ transcript
 ! !
 !NewLauncher methodsFor:'aspects'!
 canDoTerminal
 "return a 'valueHolder', which returns true if the terminal application
 is available. For now, this is true if we run under unix"
 !
 webDocumentsItemShownInHelpMenu
 ^ false
 ! !
 !NewLauncher methodsFor:'change & update'!
 update:something with:aParameter from:changedObject
 "care for project changes & update my infoView"
 projectInfo := self infoLineTemplate bindWithArguments:bindings.
 self infoLabelHolder value:projectInfo.
 ^projectInfo.
 ! !
 !NewLauncher methodsFor:'help'!
 defaultInfoLabel
 ^self updateInfo
 aKey == #fileSaveImage ifTrue:[
 ^ text bindWith:(ObjectMemory nameForSnapshot)
 ].
 ^ text
 ! !
 !NewLauncher methodsFor:'menu configuration'!
 addMenuItem:newItem from:anApplicationClassWhichProvidesResourcesOrNil in:where position:positionSpecOrNilArg space:space
 "adds a menu item;
 ^ UserAddedToolBarItems ? #()
 ! !
 !NewLauncher methodsFor:'menus-dynamic'!
 allWindowsMenu
 "returns a subMenu with one oeprations-submenu entry per open window"
-|menu|
+|menu allViewsAndLabels|
 menu := Menu new receiver: self.
-(self allTopViewsAndLabelsSortedFilteringWindowGroups:nil) do:[:assoc |
+allViewsAndLabels := self allTopViewsAndLabelsSortedFilteringWindowGroups:nil.
-|view label submenu|
+allViewsAndLabels do:[:assoc |
+|view label submenu likeThis info|
 view := assoc value.
 label := assoc key.
 submenu := Menu new.
 submenu addItem:(MenuItem new
 label: 'Raise Deiconified';
-value: [view raiseDeiconified; setForegroundWindow];
+itemValue: [view raiseDeiconified; setForegroundWindow];
 translateLabel: true).
 submenu addItem:(MenuItem new
 label: 'Iconify';
-value: [view collapse];
+itemValue: [view collapse];
 translateLabel: true).
 submenu addItem:(MenuItem new
 label: 'Migrate';
-value: [self migrateWindow:view];
+itemValue: [self migrateWindow:view];
 enabled:(view windowGroup isModal not);
 translateLabel: true).
 submenu addSeparator.
 submenu addItem:(MenuItem new
 label: 'Hardcopy';
-value: [self hardcopyOfView:view];
+itemValue: [self hardcopyOfView:view];
 translateLabel: true).
 submenu addItem:(MenuItem new
 label: 'Inspect View';
-value: [view inspect];
+itemValue: [view inspect];
 translateLabel: true).
 submenu addItem:(MenuItem new
 label: 'Inspect Application';
-value: [view application inspect];
+itemValue: [view application inspect];
 enabled:(view application notNil);
 translateLabel: true).
 submenu addSeparator.
 submenu addItem:(MenuItem new
 label: 'Browse View Class';
-value: [view class browse];
+itemValue: [view class browse];
 translateLabel: true).
 submenu addItem:(MenuItem new
 label: 'Browse Application Class';
-value: [view application class browse];
+itemValue: [view application class browse];
 enabled:(view application notNil);
 translateLabel: true).
 submenu addItem:(MenuItem new
 label: 'Debug Application';
-value: [Debugger openOn:view windowGroup process];
+itemValue: [Debugger openOn:view windowGroup process];
 translateLabel: true).
 submenu addSeparator.
 submenu addItem:(MenuItem new
 label: 'Close';
-value: [view destroy];
+itemValue: [view destroy];
 translateLabel: true).
+likeThis :=
+allViewsAndLabels
+select:[:assoc |
+|otherView|
+otherView := assoc value.
+otherView class == view class
+and:[ otherView application class == view application class]
+]
+thenCollect:[:assoc | assoc value ].
+likeThis size > 1 ifTrue:[
+info := view application notNil
+ifTrue:[ view application class name ]
+ifFalse:[ view class name ].
+info := ' ("',info,'")'.
+] ifFalse:[
+info := ''
+].
+submenu addItem:(MenuItem new
+label: ('Close all like This%1' bindWith:info);
+itemValue: [likeThis do:[:eachView | eachView destroy]];
+translateLabel: true;
+enabled:(likeThis size > 1)).
 menu addItem:(MenuItem new
 label: label;
 submenu: submenu;
-value: [view raiseDeiconified; setForegroundWindow];
+itemValue: [view raiseDeiconified; setForegroundWindow];
 translateLabel: false).
 ].
 menu findGuiResourcesIn:self.
 ^menu
 ].
 "Created: / 12-11-2006 / 16:06:06 / cg"
 ! !
 !NewLauncher methodsFor:'private-settings callBacks'!
 reopenLauncher
 "reopen a new launcher.
 for now (since style & language settings currently do
 newLauncher := super reopenLauncher.
 newLauncher showingHelp:wasShowingHelp.
 ^ newLauncher
 ! !
 !NewLauncher methodsFor:'queries'!
 preferredExtent
 ^ super preferredExtent min: Screen current extent // (2.5 @ 3.5)
 !
 windowMigrationFunctionsAreShown
 ^ XWorkstation notNil
 ! !
 !NewLauncher methodsFor:'startup & release'!
 allButOpenInterface:anInterface
 "sent by my superclass to open up my interface"
 OpenLaunchers notNil ifTrue:[OpenLaunchers remove:self ifAbsent:nil].
 Project notNil ifTrue:[Project removeDependent:self]
 ! !
 !NewLauncher methodsFor:'user actions-classes'!
 enableGlobalCoverageAnalysis
 InstrumentationContext new beActiveEverywhere.
 !
 stopIgnoringHalts
 DebugView stopIgnoringHalts
 ! !
 !NewLauncher methodsFor:'user actions-demos'!
 openDemo:className
 "open a demo, given its name.
 "opens a 2-user ticTacToe game"
 self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
 ! !
 !NewLauncher methodsFor:'user actions-file'!
 clearTranscript
 Transcript current contents:''
 self warn:ex description.
 ].
 ].
 ! !
 !NewLauncher methodsFor:'user actions-help'!
 activeHelp
 helpIsOn isNil ifTrue:[
 UserPreferences current flyByHelpActive:aBoolean.
 "Modified: / 18.8.1998 / 16:06:27 / cg"
 ! !
 !NewLauncher methodsFor:'user actions-system'!
 initJavaVM
 JavaVM initializeVM
 "Created: / 20-06-2004 / 16:08:09 / masca"
 "Modified: / 20-04-2005 / 18:59:28 / janfrog"
 ! !
 !NewLauncher methodsFor:'user actions-windows'!
 redrawAllWindows
 device redrawAllWindows.
 ! !
 !NewLauncher::AddedToolInfo methodsFor:'accessing'!
 before
 ^ before
 where:something
 where := something.
 ! !
 !NewLauncher class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.448 2012/12/13 10:07:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.450 2013-01-26 21:04:03 cg Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.448 2012/12/13 10:07:34 cg Exp �'
+^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.450 2013-01-26 21:04:03 cg Exp $'
 !
 version_SVN
-^ '$Id: NewLauncher.st 8083 2013-01-14 11:48:37Z vranyj1 $'
+^ '�Id: NewLauncher.st 7772 2011-06-08 21:59:15Z vranyj1 �'
 ! !

branch	jv
changeset 12401	4714b9640528
parent 12314	0cbf76168690
parent 12335	5281423297a8
child 12431	9f0c59c742d5