--- a/NewLauncher.st Tue Dec 22 11:28:59 2009 +0100
+++ b/NewLauncher.st Tue Dec 22 12:03:57 2009 +0100
@@ -1252,65 +1252,7 @@
(MenuItem
label: 'Special Browsers'
translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: classesClassBrowser
- label: 'Class Browser On...'
- itemValue: startClassBrowser
- nameKey: classBrowserOn
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- activeHelpKey: classesFullClassBrowser
- label: 'Full Class Browser On...'
- itemValue: startFullClassBrowser
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- activeHelpKey: classesClassHierarchyBrowser
- label: 'Class Hierarchy Browser On...'
- itemValue: startClassHierarchyBrowser
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Method Finder'
- itemValue: openMethodFinder
- translateLabel: true
- )
- (MenuItem
- activeHelpKey: classesResourceMethods
- label: 'Find Resource Methods...'
- itemValue: browseResources
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Snapshot Image Browser...'
- itemValue: startSnapshotImageBrowser
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- (MenuItem
- enabled: remoteImageBrowserAvailable
- label: 'Remote Image Browser...'
- itemValue: startRemoteImageBrowser
- translateLabel: true
- showBusyCursorWhilePerforming: true
- )
- )
- nil
- nil
- )
+ submenuChannel: classesSpecialBrowserMenu
)
(MenuItem
activeHelpKey: classesClassTreeBrowser
@@ -1377,6 +1319,81 @@
)
!
+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:#classesMenu
+ (Menu new fromLiteralArrayEncoding:(NewLauncher classesMenu)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: classesClassBrowser
+ label: 'Class Browser On...'
+ itemValue: startClassBrowser
+ nameKey: classBrowserOn
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ activeHelpKey: classesFullClassBrowser
+ label: 'Full Class Browser On...'
+ itemValue: startFullClassBrowser
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ activeHelpKey: classesClassHierarchyBrowser
+ label: 'Class Hierarchy Browser On...'
+ itemValue: startClassHierarchyBrowser
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Method Finder'
+ itemValue: openMethodFinder
+ translateLabel: true
+ )
+ (MenuItem
+ activeHelpKey: classesResourceMethods
+ label: 'Find Resource Methods...'
+ itemValue: browseResources
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Snapshot Image Browser...'
+ itemValue: startSnapshotImageBrowser
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: remoteImageBrowserAvailable
+ label: 'Remote Image Browser...'
+ itemValue: startRemoteImageBrowser
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ )
+ nil
+ nil
+ )
+!
+
demosMenu
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -2983,6 +3000,7 @@
label: 'Migrate All To...'
itemValue: migrateAllWindows
translateLabel: true
+ isVisible: windowMigrationFunctionsAreShown
)
(MenuItem
label: '-'
@@ -2992,6 +3010,7 @@
label: 'Window Tree'
itemValue: startWindowTreeView
translateLabel: true
+ isVisible: windowTreeViewAvailable
)
(MenuItem
activeHelpKey: windowsViewTreeAllViews
@@ -2999,12 +3018,14 @@
itemValue: openApplication:
translateLabel: true
argument: 'WindowTreeView'
+ isVisible: windowTreeViewAvailable
)
(MenuItem
activeHelpKey: windowsViewTreeAllScreens
label: 'Window Tree (All on All Screens)'
itemValue: startWindowTreeViewForAll
translateLabel: true
+ isVisible: windowTreeViewAvailable
)
(MenuItem
label: 'FlyBy Window Information'
@@ -3033,6 +3054,7 @@
label: 'Select and Migrate To...'
itemValue: viewMigrate
translateLabel: true
+ isVisible: windowMigrationFunctionsAreShown
)
(MenuItem
label: '-'
@@ -3056,12 +3078,14 @@
label: 'Find by Name and Migrate To...'
itemValue: findAndMigrateWindow
translateLabel: true
+ isVisible: windowMigrationFunctionsAreShown
)
(MenuItem
activeHelpKey: windowsFindAndMigrateBack
label: 'Find by Name and Migrate Back...'
itemValue: findAndMigrateWindowBack
translateLabel: true
+ isVisible: windowMigrationFunctionsAreShown
)
(MenuItem
label: '-'
@@ -4275,6 +4299,10 @@
useOldSettingsApplication
^ self useNewSettingsApplication not
+!
+
+windowMigrationFunctionsAreShown
+ ^ XWorkstation notNil
! !
!NewLauncher methodsFor:'startup & release'!
@@ -4738,9 +4766,9 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.401 2009-12-22 11:03:57 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.400 2009-11-12 18:05:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.401 2009-12-22 11:03:57 cg Exp $'
! !