menuitem protocol
authorClaus Gittinger <cg@exept.de>
Sun, 09 Sep 2012 19:29:23 +0200
changeset 11785 ce2c2fe4076f
parent 11784 9dd1dd724f3e
child 11786 9b280130d066
menuitem protocol
NewLauncher.st
--- 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