# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1525979180 -7200
# Node ID de7c2d6148e1a46cf1a8f8b64db1c36649cc0051
# Parent  815d85b10332981ae1433ad9a0de6b2fb29df512
#FEATURE by cg
class: Menu
added:
	#addLabel:selector:
	#addLabel:selector:action:
	#addLabel:value:

diff -r 815d85b10332 -r de7c2d6148e1 Menu.st
--- a/Menu.st	Sun May 06 13:12:45 2018 +0200
+++ b/Menu.st	Thu May 10 21:06:20 2018 +0200
@@ -786,6 +786,10 @@
     "Modified: / 04-10-2013 / 19:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+addLabel:aLabel selector:aSelector action:aBlock
+    self addItem:(MenuItem label:aLabel itemValue:aBlock).
+!
+
 addSeparator
     "add a separating line item at the end;
      useful to build a menu programmatically (or, to add more items dynamically)"