mouse2.p
| 1 |
DEF TEMP-TABLE tt FIELD f1 AS INTEGER. |
|---|---|
| 2 |
CREATE tt. tt.f1 = 1. |
| 3 |
DEFINE QUERY q FOR tt SCROLLING. |
| 4 |
|
| 5 |
DEF BROWSE br QUERY q DISPLAY tt.f1 WIDTH 8 WITH 4 DOWN . |
| 6 |
|
| 7 |
DEF VAR ed AS CHARACTER VIEW-AS EDITOR INNER-CHARS 20 INNER-LINES 4 LABEL "Editor". |
| 8 |
DEF VAR fi AS CHARACTER FORMAT "X(10)" VIEW-AS FILL-IN BGCOLOR 3 LABEL "Fill-In". |
| 9 |
|
| 10 |
|
| 11 |
DEF FRAME fr |
| 12 |
br |
| 13 |
fi ed |
| 14 |
WITH SIDE-LABELS SIZE 80 BY 10. |
| 15 |
|
| 16 |
OPEN QUERY q FOR EACH tt. |
| 17 |
|
| 18 |
ENABLE ALL WITH FRAME fr . |
| 19 |
|
| 20 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |