test-editor-keys.p
1 |
DEFINE VARIABLE my_clipbd AS CHARACTER VIEW-AS EDITOR SIZE 60 BY 6 SCROLLBAR-VERTICAL LABEL "Scratch Pad". |
---|---|
2 |
DEFINE VARIABLE my_field AS CHARACTER VIEW-AS FILL-IN SIZE 30 BY 1 LABEL "USER" NO-UNDO. |
3 |
DEFINE VARIABLE my_field2 AS CHARACTER VIEW-AS FILL-IN SIZE 30 BY 1 LABEL "Password" NO-UNDO. |
4 |
DEFINE BUTTON b_quit LABEL "Quit" AUTO-ENDKEY. |
5 |
|
6 |
DEFINE BUTTON b_apply LABEL "Apply". |
7 |
|
8 |
DEFINE FRAME clip my_field skip my_field2 skip my_clipbd skip b_apply b_quit WITH CENTERED SIDE-LABELS ROW 9. |
9 |
|
10 |
VIEW FRAME clip. |
11 |
|
12 |
ENABLE ALL WITH FRAME clip. |
13 |
|
14 |
|
15 |
ON ANY-KEY ANYWHERE DO: |
16 |
MESSAGE LASTKEY " - " KEYLABEL(LASTKEY) " - " KEYFUNCTION(LASTKEY). |
17 |
END. |
18 |
|
19 |
|
20 |
ON CHOOSE OF b_apply DO: |
21 |
apply "ALT-" TO my_clipbd. |
22 |
message KEYCODE("CTRL-SHIFT-ALT-") KEYCODE("CTRL-ALT-") |
23 |
KEYCODE("CTRL-SHIFT-") |
24 |
KEYCODE("SHIFT-ALT-") |
25 |
KEYCODE("ALT-") |
26 |
KEYCODE("SHIFT-") |
27 |
KEYCODE("CTRL-"). |
28 |
END. |
29 |
|
30 |
/* |
31 |
ON "ALT-B" OF my_clipbd DO: |
32 |
MESSAGE "trigger " LASTKEY " - " KEYLABEL(LASTKEY) " - " KEYFUNCTION(LASTKEY). |
33 |
|
34 |
END. |
35 |
|
36 |
|
37 |
ON "ctrl-alt-d" OF my_clipbd DO: |
38 |
MESSAGE LASTKEY " - " KEYLABEL(LASTKEY) " - " KEYFUNCTION(LASTKEY). |
39 |
END. |
40 |
|
41 |
ON "ctrl-alt-l" OF my_clipbd DO: |
42 |
MESSAGE LASTKEY " - " KEYLABEL(LASTKEY) " - " KEYFUNCTION(LASTKEY). |
43 |
END. |
44 |
|
45 |
ON "ctrl-alt-p" OF my_clipbd DO: |
46 |
MESSAGE LASTKEY " - " KEYLABEL(LASTKEY) " - " KEYFUNCTION(LASTKEY). |
47 |
END. |
48 |
|
49 |
ON "ctrl-alt-t" OF my_clipbd DO: |
50 |
MESSAGE LASTKEY " - " KEYLABEL(LASTKEY) " - " KEYFUNCTION(LASTKEY). |
51 |
END. |
52 |
*/ |
53 |
WAIT-FOR CLOSE OF CURRENT-WINDOW. |