MenuItem.st
changeset 2813 9eba174d8bd1
parent 2755 231339e903eb
child 2866 2d1ab34d1836
--- a/MenuItem.st	Sat Nov 28 11:16:52 2009 +0100
+++ b/MenuItem.st	Fri Dec 04 14:34:12 2009 +0100
@@ -70,6 +70,13 @@
     "Created: / 14.8.1998 / 19:19:14 / cg"
 !
 
+label:labelString choice:choiceAspect choiceValue:selectorOrValue
+    "create and return a new menuItem, given its label and choice/value.
+     This will create a Radio-Button-like item."
+
+    ^ (self new) label:labelString; choice:choiceAspect; choiceValue:selectorOrValue; yourself
+!
+
 label:labelString value:selectorOrValue
     "create and return a new menuItem, given its label and value"
 
@@ -950,9 +957,9 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.88 2009-10-02 00:46:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.89 2009-12-04 13:34:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.88 2009-10-02 00:46:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.89 2009-12-04 13:34:12 cg Exp $'
 ! !