--- 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 $'
! !