equal
deleted
inserted
replaced
782 |
782 |
783 self addItems: anotherMenu items ? #() |
783 self addItems: anotherMenu items ? #() |
784 |
784 |
785 "Created: / 01-09-2013 / 16:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
785 "Created: / 01-09-2013 / 16:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
786 "Modified: / 04-10-2013 / 19:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
786 "Modified: / 04-10-2013 / 19:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
787 ! |
|
788 |
|
789 addLabel:aLabel selector:aSelector action:aBlock |
|
790 self addItem:(MenuItem label:aLabel itemValue:aBlock). |
787 ! |
791 ! |
788 |
792 |
789 addSeparator |
793 addSeparator |
790 "add a separating line item at the end; |
794 "add a separating line item at the end; |
791 useful to build a menu programmatically (or, to add more items dynamically)" |
795 useful to build a menu programmatically (or, to add more items dynamically)" |