zf.p
| 1 |
DEFINE RECTANGLE rm1 SIZE 10 BY 10 BGCOLOR 5 TOOLTIP "mrectangle". |
|---|---|
| 2 |
DEFINE RECTANGLE rm2 LIKE rm1. |
| 3 |
|
| 4 |
DEF FRAME fr1 rm1 WITH TITLE "fr1" AT COLUMN 1 ROW 1 SIZE 10 BY 12. |
| 5 |
DEF FRAME fr2 rm2 WITH TITLE "fr2" AT COLUMN 11 ROW 1 SIZE 10 BY 12. |
| 6 |
|
| 7 |
ENABLE ALL WITH FRAME fr1. |
| 8 |
ENABLE ALL WITH FRAME fr2. |
| 9 |
|
| 10 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 11 |
|