--- a/NewLauncher.st Fri Apr 27 14:07:19 2012 +0200
+++ b/NewLauncher.st Fri Apr 27 14:14:02 2012 +0200
@@ -1428,16 +1428,6 @@
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
@@ -1455,7 +1445,7 @@
nil
)
- "Modified: / 01-12-2011 / 21:35:52 / cg"
+ "Modified: / 27-04-2012 / 14:07:16 / cg"
!
demosMenu
@@ -2785,44 +2775,13 @@
(MenuItem
label: '-'
)
- (MenuItem
- label: 'GUI'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- activeHelpKey: toolsGUIPainter
- label: 'GUI Painter'
- itemValue: openApplication:
- nameKey: guiPainter
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary startUIPainterIcon 'GUI Painter')
- argument: 'UIPainter'
- )
- (MenuItem
- activeHelpKey: toolsMenuEditor
- label: 'Menu Editor'
- itemValue: openApplication:
- nameKey: menuEditor
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary startMenuEditorIcon 'Menu Editor')
- argument: 'MenuEditor'
- )
- (MenuItem
- activeHelpKey: toolsImageEditor
- label: 'Image Editor'
- itemValue: openApplication:
- nameKey: imageEditor
- translateLabel: true
- labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon 'Image Editor')
- argument: 'ImageEditor'
- )
- )
- nil
- nil
- )
- )
+ (MenuItem
+ enabled: monticelloRepositoryAvailable
+ label: 'Monticello Repository Browser'
+ itemValue: startMonticelloRepositoryBrowser
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
(MenuItem
label: 'Programming'
nameKey: programming
@@ -2882,6 +2841,44 @@
)
)
(MenuItem
+ label: 'GUI'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ activeHelpKey: toolsGUIPainter
+ label: 'GUI Painter'
+ itemValue: openApplication:
+ nameKey: guiPainter
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary startUIPainterIcon 'GUI Painter')
+ argument: 'UIPainter'
+ )
+ (MenuItem
+ activeHelpKey: toolsMenuEditor
+ label: 'Menu Editor'
+ itemValue: openApplication:
+ nameKey: menuEditor
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary startMenuEditorIcon 'Menu Editor')
+ argument: 'MenuEditor'
+ )
+ (MenuItem
+ activeHelpKey: toolsImageEditor
+ label: 'Image Editor'
+ itemValue: openApplication:
+ nameKey: imageEditor
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon 'Image Editor')
+ argument: 'ImageEditor'
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -3031,6 +3028,8 @@
nil
nil
)
+
+ "Modified (format): / 27-04-2012 / 14:08:02 / cg"
!
windowsMenu
@@ -4192,7 +4191,7 @@
submenu := Menu new.
submenu addItem:(MenuItem new
- label: 'Deiconify';
+ label: 'Raise Deiconified';
value: [view raiseDeiconified; setForegroundWindow];
translateLabel: true).
submenu addItem:(MenuItem new
@@ -4219,6 +4218,16 @@
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];
@@ -4965,11 +4974,11 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.430 2012-04-27 12:07:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.431 2012-04-27 12:14:02 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.430 2012-04-27 12:07:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.431 2012-04-27 12:14:02 cg Exp $'
!
version_SVN