MenuItem.st
changeset 3352 244d68f2382e
parent 3305 06a3d26394de
child 3353 6a6ab96a3720
--- a/MenuItem.st	Tue Jul 01 12:57:13 2014 +0200
+++ b/MenuItem.st	Tue Jul 08 14:42:00 2014 +0200
@@ -107,13 +107,20 @@
     "create and return a new menuItem, given its label and value"
 
     ^ (self new) 
-        label:labelString itemValue:selectorOrValue; 
-        enabled:enabledHolder;
-        yourself
+        label:labelString itemValue:selectorOrValue enabled:enabledHolder
 
     "Created: / 09-09-2012 / 13:23:05 / cg"
 !
 
+label:labelString itemValue:selectorOrValue translateLabel:translateLabel
+    "create and return a new menuItem, given its label, value and translateLabel flag"
+
+    ^ (self new) 
+        label:labelString 
+        itemValue:selectorOrValue 
+        translateLabel:translateLabel
+!
+
 label:labelString submenuChannel:aSymbolOrValueHolder
     "create and return a new menuItem, given its label and value"
 
@@ -485,6 +492,18 @@
     "Created: / 09-09-2012 / 13:19:36 / cg"
 !
 
+label:labelString itemValue:selectorOrBlock enabled:enabledHolder
+    label := labelString.
+    itemValue := selectorOrBlock.
+    enabled := enabledHolder
+!
+
+label:labelString itemValue:selectorOrBlock translateLabel:translateLabelBoolean
+    label := labelString.
+    itemValue := selectorOrBlock.
+    translateLabel := translateLabelBoolean
+!
+
 label:labelString submenuChannel:aSymbolOrValueHolder
     label := labelString.
     submenuChannel := aSymbolOrValueHolder
@@ -682,10 +701,10 @@
     ^ enabled
 !
 
-enabled:something
+enabled:enabledHolder
     "a boolean, valueHolder or block"
 
-    enabled := something
+    enabled := enabledHolder
 !
 
 hideMenuOnActivated
@@ -1146,10 +1165,10 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.106 2014-03-12 17:22:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.107 2014-07-08 12:42:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.106 2014-03-12 17:22:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.107 2014-07-08 12:42:00 cg Exp $'
 ! !