#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Thu, 10 May 2018 21:06:20 +0200
changeset 4086de7c2d6148e1
parent 4085 815d85b10332
child 4087 d9336080778d
#FEATURE by cg
class: Menu
added:
#addLabel:selector:
#addLabel:selector:action:
#addLabel:value:
Menu.st
     1.1 --- a/Menu.st	Sun May 06 13:12:45 2018 +0200
     1.2 +++ b/Menu.st	Thu May 10 21:06:20 2018 +0200
     1.3 @@ -786,6 +786,10 @@
     1.4      "Modified: / 04-10-2013 / 19:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     1.5  !
     1.6  
     1.7 +addLabel:aLabel selector:aSelector action:aBlock
     1.8 +    self addItem:(MenuItem label:aLabel itemValue:aBlock).
     1.9 +!
    1.10 +
    1.11  addSeparator
    1.12      "add a separating line item at the end;
    1.13       useful to build a menu programmatically (or, to add more items dynamically)"