changeset 1912 | a2f795ace8a9 |
parent 1908 | f782762ea789 |
child 1913 | bed277fdbd85 |
1911:0538568157f0 | 1912:a2f795ace8a9 |
---|---|
2559 "create a new Menu |
2559 "create a new Menu |
2560 " |
2560 " |
2561 self addAndSelectValueOf: |
2561 self addAndSelectValueOf: |
2562 [ |item| |
2562 [ |item| |
2563 item := RegularMenuItem new. |
2563 item := RegularMenuItem new. |
2564 item expand. |
2564 "/ --- do not add it expanded - because that makes it hard to add multipe menus |
2565 "/ item expand. |
|
2565 item |
2566 item |
2566 ]. |
2567 ]. |
2567 ! |
2568 ! |
2568 |
2569 |
2569 doCreateMenuSliceItem |
2570 doCreateMenuSliceItem |