keyupdown.p
| 1 |
DEFINE FRAME f. |
|---|---|
| 2 |
|
| 3 |
DEFINE VARIABLE fil AS CHARACTER. |
| 4 |
DEFINE BUTTON btn. |
| 5 |
DEFINE VARIABLE edit AS CHARACTER NO-UNDO |
| 6 |
VIEW-AS EDITOR SIZE 60 BY 6 SCROLLBAR-VERTICAL LABEL "Editor". |
| 7 |
|
| 8 |
ENABLE ALL WITH FRAME f. |
| 9 |
DISPLAY fil btn edit WITH FRAME f. |
| 10 |
VIEW FRAME f. |
| 11 |
|
| 12 |
ON CHOOSE OF btn DO: |
| 13 |
MESSAGE "click". |
| 14 |
END. |
| 15 |
|
| 16 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |
| 17 |
|