--- a/NewLauncher.st Sun Sep 09 15:11:47 2012 +0200
+++ b/NewLauncher.st Sun Sep 09 19:29:23 2012 +0200
@@ -4179,51 +4179,51 @@
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 :=
@@ -4248,14 +4248,14 @@
submenu addItem:(MenuItem new
label: ('Close all like This%1' bindWith:info);
- value: [likeThis do:[:eachView | eachView destroy]];
+ 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).
].
@@ -4335,13 +4335,13 @@
MenuItem new
translateLabel: false;
label: (histEntry className);
- value: [whichBrowserClass openInClass:histEntry theClass selector:histEntry selector];
+ itemValue: [whichBrowserClass openInClass:histEntry theClass selector:histEntry selector];
activeHelpKey: #classesSystemBrowserOnClass
]
).
menu addItem: (MenuItem new
label: 'Clear History';
- value: [classHistory removeAll];
+ itemValue: [classHistory removeAll];
translateLabel: true;
enabled:(classHistory notEmpty);
activeHelpKey: #historyEmptyMenu).
@@ -4349,7 +4349,7 @@
menu findGuiResourcesIn:self.
^ menu
- "Modified: / 25-01-2011 / 16:45:07 / cg"
+ "Modified: / 09-09-2012 / 13:09:49 / cg"
!
menuClassHistoryNew
@@ -4374,13 +4374,13 @@
MenuItem new
translateLabel: false;
label: dirNameString;
- value: [UserPreferences fileBrowserClass openOn:dirNameString];
+ itemValue: [UserPreferences fileBrowserClass openOn:dirNameString];
activeHelpKey: #FileBrowserOnDirectory
]
).
menu addItem: (MenuItem new
label: 'Clear History';
- value: [dirHistory removeAll];
+ itemValue: [dirHistory removeAll];
translateLabel: true;
enabled:(dirHistory notEmpty);
activeHelpKey: #historyEmptyMenu).
@@ -4388,7 +4388,7 @@
menu findGuiResourcesIn:self.
^menu
- "Modified: / 25-01-2011 / 16:45:39 / cg"
+ "Modified: / 09-09-2012 / 13:09:58 / cg"
!
recentlyOpenedApplicationsMenu
@@ -4410,8 +4410,7 @@
].
item := MenuItem new
label: label;
- value: #openApplication:;
- argument: appClassName.
+ itemValue: #openApplication: argument: appClassName.
appClass isNil ifTrue:[
item enabled:false.
@@ -4422,13 +4421,15 @@
).
menu addItem: (MenuItem new
label: 'Clear History';
- value: [ ApplicationModel forgetRecentlyOpenedApplications ];
+ itemValue: [ ApplicationModel forgetRecentlyOpenedApplications ];
translateLabel: true;
enabled:(appHistory notEmpty);
activeHelpKey: #historyEmptyMenu).
menu findGuiResourcesIn:self.
^menu
+
+ "Modified: / 09-09-2012 / 13:10:12 / cg"
!
startBrowserOnSmallTeamChangesMenu
@@ -4446,8 +4447,7 @@
|item|
item := MenuItem label:eachHost.
- item value:#'startBrowserOnChangesOnSmallTeamHost:'.
- item argument:eachHost.
+ item itemValue:#'startBrowserOnChangesOnSmallTeamHost:' argument:eachHost.
m addItem:item.
anyItem := true.
].
@@ -4990,11 +4990,11 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.441 2012-08-23 12:54:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.442 2012-09-09 17:29:23 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.441 2012-08-23 12:54:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.442 2012-09-09 17:29:23 cg Exp $'
!
version_SVN