zr.p
| 1 |
DEFINE VARIABLE f AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN. |
|---|---|
| 2 |
DEFINE VARIABLE g AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN. |
| 3 |
|
| 4 |
DEF FRAME fr |
| 5 |
f AT COLUMN 1 ROW 1 BGCOLOR 1 |
| 6 |
g AT COLUMN 1 ROW 1 BGCOLOR 3 |
| 7 |
WITH TITLE "fr" AT COLUMN 1 ROW 1 SIZE 20 BY 12. |
| 8 |
|
| 9 |
ENABLE ALL WITH FRAME fr. |
| 10 |
|
| 11 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 12 |
|