--- a/NewLauncher.st Sat May 05 22:28:49 2012 +0100
+++ b/NewLauncher.st Sat May 05 23:06:53 2012 +0100
@@ -1330,6 +1330,17 @@
showBusyCursorWhilePerforming: true
)
(MenuItem
+ label: 'Method Finder'
+ itemValue: openMethodFinder
+ translateLabel: true
+ )
+ (MenuItem
+ activeHelpKey: classesResourceMethods
+ label: 'Find Resource Methods...'
+ itemValue: browseResources
+ translateLabel: true
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -1367,8 +1378,6 @@
nil
nil
)
-
- "Modified: / 28-02-2012 / 11:50:23 / cg"
!
classesSpecialBrowserMenu
@@ -1378,84 +1387,59 @@
"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
+ MenuEditor new openOnClass:NewLauncher andSelector:#classesSpecialBrowserMenu
+ (Menu new fromLiteralArrayEncoding:(NewLauncher classesSpecialBrowserMenu)) 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
- enabled: monticelloRepositoryAvailable
- label: 'Monticello Repository Browser'
- itemValue: startMonticelloRepositoryBrowser
- translateLabel: true
- showBusyCursorWhilePerforming: 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
- )
-
- "Modified: / 01-12-2011 / 21:35:52 / cg"
+ (
+ (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: '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
@@ -3057,6 +3041,7 @@
"Do not manually edit this!! If it is corrupted,
the MenuEditor may not be able to read the specification."
+
"
MenuEditor new openOnClass:NewLauncher andSelector:#windowsMenu
(Menu new fromLiteralArrayEncoding:(NewLauncher windowsMenu)) startUp
@@ -3068,6 +3053,14 @@
#(Menu
(
(MenuItem
+ label: 'Window'
+ translateLabel: true
+ submenuChannel: allWindowsMenu
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
activeHelpKey: windowsRedrawAll
label: 'Redraw All'
itemValue: redrawAllWindows
@@ -3150,36 +3143,37 @@
isVisible: windowTreeViewAvailable
)
(MenuItem
+ activeHelpKey: windowsViewTree
+ label: 'Window Tree'
+ itemValue: openWindowTreeInspector
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary viewInspect22x22Icon 'Window Tree')
+ )
+ (MenuItem
activeHelpKey: flyByWindowInformation
label: 'FlyBy Window Information'
itemValue: showFlyByWindowInformation
translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary viewInspect22x22Icon 'FlyBy Window Information')
- )
- (MenuItem
- activeHelpKey: flyByWindowInformation
- label: 'Window Tree Inspector'
- itemValue: openWindowTreeInspector
- translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary viewFlyByInfo22x22Icon 'FlyBy Window Information')
)
(MenuItem
label: '-'
)
(MenuItem
activeHelpKey: windowsSelectAndInspect
- label: 'Select and Inspect'
+ label: 'Select and Inspect...'
itemValue: viewInspect
translateLabel: true
)
(MenuItem
activeHelpKey: windowsSelectAndInspect
- label: 'Select and Browse'
+ label: 'Select and Browse...'
itemValue: viewBrowse
translateLabel: true
)
(MenuItem
activeHelpKey: windowsSelectAndDestroy
- label: 'Select and Destroy'
+ label: 'Select and Destroy...'
itemValue: viewDestroy
translateLabel: true
)
@@ -3205,13 +3199,13 @@
)
(MenuItem
activeHelpKey: windowsGrapWindow
- label: 'Grab Window...'
+ label: 'Select and Grab Window...'
itemValue: viewHardcopy
translateLabel: true
)
(MenuItem
activeHelpKey: windowsGrapWidget
- label: 'Grab Widget...'
+ label: 'Select and Grab Widget...'
itemValue: widgetHardcopy
translateLabel: true
)
@@ -4184,6 +4178,80 @@
!NewLauncher methodsFor:'menus-dynamic'!
+allWindowsMenu
+ "returns a subMenu with one oeprations-submenu entry per open window"
+
+ |menu|
+
+ menu := Menu new receiver: self.
+ (self allTopViewsAndLabelsSortedFilteringWindowGroups:nil) do:[:assoc |
+ |view label submenu|
+
+ view := assoc value.
+ label := assoc key.
+
+ submenu := Menu new.
+ submenu addItem:(MenuItem new
+ label: 'Raise Deiconified';
+ value: [view raiseDeiconified; setForegroundWindow];
+ translateLabel: true).
+ submenu addItem:(MenuItem new
+ label: 'Iconify';
+ value: [view collapse];
+ translateLabel: true).
+ submenu addItem:(MenuItem new
+ label: 'Migrate';
+ value: [self migrateWindow:view];
+ enabled:(view windowGroup isModal not);
+ translateLabel: true).
+
+ submenu addSeparator.
+ submenu addItem:(MenuItem new
+ label: 'Hardcopy';
+ value: [self hardcopyOfView:view];
+ translateLabel: true).
+ submenu addItem:(MenuItem new
+ label: 'Inspect View';
+ value: [view inspect];
+ translateLabel: true).
+ submenu addItem:(MenuItem new
+ label: 'Inspect Application';
+ value: [view application inspect];
+ enabled:(view application notNil);
+ translateLabel: true).
+ submenu addSeparator.
+ submenu addItem:(MenuItem new
+ label: 'Browse View Class';
+ value: [view class browse];
+ translateLabel: true).
+ submenu addItem:(MenuItem new
+ label: 'Browse Application Class';
+ value: [view application class browse];
+ enabled:(view application notNil);
+ translateLabel: true).
+ submenu addItem:(MenuItem new
+ label: 'Debug Application';
+ value: [Debugger openOn:view windowGroup process];
+ translateLabel: true).
+
+ submenu addSeparator.
+ submenu addItem:(MenuItem new
+ label: 'Close';
+ value: [view destroy];
+ translateLabel: true).
+
+ menu addItem:(MenuItem new
+ label: label;
+ submenu: submenu;
+ translateLabel: false).
+ ].
+
+ menu findGuiResourcesIn:self.
+ ^menu
+
+ "Created: / 27-04-2012 / 13:20:06 / cg"
+!
+
menuChangeHistory
"returns a sub menu on the last changes"
@@ -4907,13 +4975,13 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Id: NewLauncher.st 7989 2012-05-05 21:28:49Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.433 2012/05/02 12:29:02 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.428 2012/03/27 10:44:45 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.433 2012/05/02 12:29:02 cg Exp §'
!
version_SVN
- ^ '$Id: NewLauncher.st 7989 2012-05-05 21:28:49Z vranyj1 $'
+ ^ '$Id: NewLauncher.st 7990 2012-05-05 22:06:53Z vranyj1 $'
! !