Menu.st
changeset 4442 510751dc36f5
parent 4383 95689e660a4b
child 4455 93ed941728ff
--- a/Menu.st	Wed Feb 19 21:04:41 2020 +0100
+++ b/Menu.st	Wed Feb 19 21:08:32 2020 +0100
@@ -773,6 +773,16 @@
     "Modified: / 4.8.1998 / 17:34:44 / cg"
 !
 
+addItemLabel:label value:value enabled:enabled
+    "add an item at the end;
+     useful to build a menu programmatically (or, to add more items dynamically)"
+
+    self addItem:(MenuItem label:label itemValue:value enabled:enabled)
+
+    "Created: / 27.10.1997 / 19:47:12 / cg"
+    "Modified: / 4.8.1998 / 17:34:44 / cg"
+!
+
 addItems: collection
     "Add all items in given collection.
      Useful to build a menu programmatically (or, to add more items dynamically)"