simple_sm.p
| 1 |
define sub-menu sm00 |
|---|---|
| 2 |
menu-item mi01 label "OOOOOOO". |
| 3 |
|
| 4 |
define sub-menu sm0 |
| 5 |
menu-item mi0 label "MMMM" toggle-box. |
| 6 |
SKIP |
| 7 |
menu-item mi00 label "UUUUU". |
| 8 |
RULE |
| 9 |
menu-item mi01 label "FFFFFFFFFFFFFF". |
| 10 |
sub-menu sm00 label "ssssss mmm". |
| 11 |
|
| 12 |
define sub-menu sm2 |
| 13 |
menu-item mii1 label "Mi&2 item" accelerator "BACKSPACE". |
| 14 |
sub-menu sm0 label "SM0 Submenu". |
| 15 |
menu-item mii label "M&i2 i&&&tem" toggle-box. |
| 16 |
|
| 17 |
define sub-menu sm1 |
| 18 |
menu-item mi label "Mi&1 item" accelerator "PAGE-DOWN". |
| 19 |
menu-item mi1 label "Mi1 i333tem" accelerator "PAGE-UP". |
| 20 |
sub-menu sm2 label "SM2 Su&bme&nu". |
| 21 |
|
| 22 |
define menu m1 menubar |
| 23 |
sub-menu sm1 label "Smooth operator". |
| 24 |
menu-item exit label "E&x&it". |
| 25 |
|
| 26 |
|
| 27 |
define menu m2 title "popup menu only" |
| 28 |
menu-item mui label "dddddddddd". |
| 29 |
|
| 30 |
def var h as handle. |
| 31 |
|
| 32 |
assign menu-item mii:accelerator = "HOME". |
| 33 |
assign menu-item mii:checked = true. |
| 34 |
|
| 35 |
h = menu-item mi1:handle in sub-menu sm1. |
| 36 |
|
| 37 |
h:accelerator = "INSERT". |
| 38 |
|
| 39 |
on choose of menu-item mi |
| 40 |
message "Mi1". |
| 41 |
|
| 42 |
on choose of menu-item mii1 |
| 43 |
message "Mi2". |
| 44 |
|
| 45 |
assign current-window:menubar = menu m1:handle. |
| 46 |
|
| 47 |
wait-for choose of menu-item exit. |
| 48 |
|