test-menu-focus-movements.p
| 1 |
/* |
|---|---|
| 2 |
1) Open subMenu2 |
| 3 |
2) Press ESC |
| 4 |
3) subMenu2 is closed |
| 5 |
4) Press ESC |
| 6 |
5) subMenu1 is closed |
| 7 |
6) Press ESC |
| 8 |
7) subMenu1 in menu bar becomes unselected |
| 9 |
8) Press ESC |
| 10 |
9) Message "f1 trigger" is printed. |
| 11 |
*/ |
| 12 |
DEFINE SUB-MENU subMenu2 |
| 13 |
MENU-ITEM subMenuItem1 LABEL "menu-2-item-1" |
| 14 |
MENU-ITEM subMenuItem2 LABEL "menu-2-item-2" |
| 15 |
MENU-ITEM subMenuItem3 LABEL "menu-2-item-3". |
| 16 |
|
| 17 |
|
| 18 |
|
| 19 |
DEFINE SUB-MENU subMenu1 |
| 20 |
MENU-ITEM subMenuItem1 LABEL "menu-1-item-1" |
| 21 |
MENU-ITEM subMenuItem2 LABEL "menu-1-item-2" |
| 22 |
MENU-ITEM subMenuItem3 LABEL "menu-1-item-3" |
| 23 |
SUB-MENU subMenu2 LABEL "Sub menu 2". |
| 24 |
|
| 25 |
DEFINE MENU mbar MENUBAR |
| 26 |
SUB-MENU subMenu1 LABEL "Sub menu 1". |
| 27 |
|
| 28 |
/*define var ch1 as CHAR LABEL "Field 1".*/ |
| 29 |
|
| 30 |
define button bt1 LABEL "Button 1". |
| 31 |
|
| 32 |
define button bt2 LABEL "Button 2". |
| 33 |
|
| 34 |
DEFINE FRAME f1 bt1 skip bt2 WITH SIDE-LABELS. |
| 35 |
|
| 36 |
enable all with frame f1. |
| 37 |
|
| 38 |
ASSIGN CURRENT-WINDOW:MENUBAR = MENU mbar:HANDLE. |
| 39 |
|
| 40 |
ON ENDKEY, END-ERROR OF frame f1 DO: |
| 41 |
message "f1 trigger". |
| 42 |
RETURN NO-APPLY. |
| 43 |
END. |
| 44 |
|
| 45 |
WAIT-FOR CLOSE OF CURRENT-WINDOW. |