zw.p
1 |
DEF VAR hw1 AS HANDLE. |
---|---|
2 |
DEF VAR hw2 AS HANDLE. |
3 |
|
4 |
CREATE WINDOW hw1. |
5 |
CREATE WINDOW hw2. |
6 |
|
7 |
DEF VAR f1 AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN TOOLTIP "FILL-IN f1". |
8 |
DEF VAR f2 AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN TOOLTIP "FILL-IN f2". |
9 |
|
10 |
|
11 |
DEF FRAME fr1 |
12 |
f1 AT COLUMN 1 ROW 1 BGCOLOR 1 |
13 |
WITH TITLE "fr1" AT COLUMN 1 ROW 1 SIZE 20 BY 12. |
14 |
DEF FRAME fr2 |
15 |
f2 AT COLUMN 1 ROW 1 BGCOLOR 3 |
16 |
WITH TITLE "fr2" AT COLUMN 1 ROW 1 SIZE 20 BY 12. |
17 |
|
18 |
ENABLE ALL WITH FRAME fr1 IN WINDOW hw1. |
19 |
ENABLE ALL WITH FRAME fr2 IN WINDOW hw2. |
20 |
|
21 |
ON A ANYWHERE DO: |
22 |
MESSAGE "WINDOW hw1:MOVE-TO-TOP():" hw1:MOVE-TO-TOP(). |
23 |
END. |
24 |
|
25 |
ON "a" ANYWHERE DO: |
26 |
MESSAGE "WINDOW hw1:MOVE-TO-BOTTOM():" hw1:MOVE-TO-BOTTOM(). |
27 |
END. |
28 |
|
29 |
ON B ANYWHERE DO: |
30 |
MESSAGE "WINDOW hw2:MOVE-TO-TOP():" hw2:MOVE-TO-TOP(). |
31 |
END. |
32 |
|
33 |
ON "b" ANYWHERE DO: |
34 |
MESSAGE "WINDOW hw2:MOVE-TO-BOTTOM():" hw2:MOVE-TO-BOTTOM(). |
35 |
END. |
36 |
|
37 |
WAIT-FOR WINDOW-CLOSE OF hw1. |