triggers.p
1 |
define sub-menu sm |
---|---|
2 |
menu-item mi label "MI". |
3 |
|
4 |
define menu m menubar |
5 |
sub-menu sm label "SM". |
6 |
menu-item mi label "MI E&xit". |
7 |
|
8 |
/* 0 */ |
9 |
on choose of menu-item mi in sub-menu sm |
10 |
message "mi in sm". |
11 |
|
12 |
/* 1 */ |
13 |
on choose of menu-item mi in menu m |
14 |
message "mi in menu". |
15 |
|
16 |
/* 2 */ |
17 |
on choose of menu-item mi |
18 |
message "mi". |
19 |
|
20 |
/* 3 */ |
21 |
on choose of sub-menu sm |
22 |
message "sm". |
23 |
|
24 |
/* 4 */ |
25 |
on choose of sub-menu sm in menu m |
26 |
message "sm in m". |
27 |
|
28 |
/* 5 */ |
29 |
on choose of menu m |
30 |
message "m". |
31 |
|
32 |
/* 6 */ |
33 |
on choose of menu-item mi, sub-menu sm |
34 |
message "mi, sm". |
35 |
|
36 |
/* 7 */ |
37 |
on menu-drop, choose of sub-menu sm in menu m, menu m |
38 |
message "md, choose: sm, m". |
39 |
|
40 |
|
41 |
assign current-window:menubar = menu m:handle. |
42 |
|
43 |
wait-for choose of sub-menu sm. |
44 |
|