MenuItem.st
changeset 1030 3684379a1ac8
parent 985 5a5b476cfd6b
child 1041 d28f0375cd26
--- a/MenuItem.st	Tue Aug 04 17:38:22 1998 +0200
+++ b/MenuItem.st	Tue Aug 04 17:38:53 1998 +0200
@@ -36,8 +36,20 @@
 
 !MenuItem class methodsFor:'instance creation'!
 
+label:labelString value:selectorOrValue
+    "create and return a new menuItem, given its label and value"
+
+    ^ (self new) label:labelString; value:selectorOrValue; yourself
+
+    "Created: / 4.8.1998 / 17:34:18 / cg"
+!
+
 labeled:aString
+    "create and return a new menuItem, given a label string"
+
     ^ self new label:aString
+
+    "Modified: / 4.8.1998 / 17:33:13 / cg"
 ! !
 
 !MenuItem methodsFor:'ST-80 compatibility'!
@@ -682,5 +694,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.23 1998-06-20 15:15:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.24 1998-08-04 15:38:53 cg Exp $'
 ! !