1
|
CURRENT-WINDOW:KEEP-FRAME-Z-ORDER = TRUE.
|
2
|
/*
|
3
|
CURRENT-WINDOW:VIRTUAL-WIDTH-CHARS = 100.
|
4
|
CURRENT-WINDOW:VIRTUAL-HEIGHT-CHARS = 100.
|
5
|
CURRENT-WINDOW:SCROLL-BARS = true.
|
6
|
*/
|
7
|
|
8
|
DEFINE VARIABLE f1 AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN.
|
9
|
DEFINE VARIABLE f2 AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN.
|
10
|
DEFINE VARIABLE f3 AS CHAR FORMAT "X(10)" NO-UNDO VIEW-AS FILL-IN.
|
11
|
|
12
|
DEF FRAME fr1 f1 WITH TITLE "fr1" AT COLUMN 1 ROW 1 OVERLAY.
|
13
|
DEF FRAME fr2 f2 WITH TITLE "fr2" AT COLUMN 4 ROW 4 OVERLAY.
|
14
|
DEF FRAME fr3 f3 WITH TITLE "fr3" AT COLUMN 7 ROW 7 OVERLAY.
|
15
|
|
16
|
DEF VAR h1 AS HANDLE.
|
17
|
DEF VAR h2 AS HANDLE.
|
18
|
DEF VAR h3 AS HANDLE.
|
19
|
|
20
|
h1 = f1:HANDLE IN FRAME fr1.
|
21
|
h2 = f2:HANDLE IN FRAME fr2.
|
22
|
h3 = f3:HANDLE IN FRAME fr3.
|
23
|
|
24
|
ENABLE ALL WITH FRAME fr1.
|
25
|
ENABLE ALL WITH FRAME fr2.
|
26
|
ENABLE ALL WITH FRAME fr3.
|
27
|
|
28
|
message "fr1:KEEP-FRAME-Z-ORDER" FRAME fr1:WINDOW:KEEP-FRAME-Z-ORDER FRAME fr1:HIDDEN FRAME fr1:VISIBLE.
|
29
|
message "fr2:KEEP-FRAME-Z-ORDER" FRAME fr2:WINDOW:KEEP-FRAME-Z-ORDER FRAME fr2:HIDDEN FRAME fr2:VISIBLE.
|
30
|
message "fr3:KEEP-FRAME-Z-ORDER" FRAME fr3:WINDOW:KEEP-FRAME-Z-ORDER FRAME fr3:HIDDEN FRAME fr3:VISIBLE.
|
31
|
|
32
|
ON A ANYWHERE DO:
|
33
|
MESSAGE "FRAME fr1:MOVE-TO-TOP():" FRAME fr1:MOVE-TO-TOP() FRAME fr1:HIDDEN FRAME fr1:VISIBLE FOCUS:NAME.
|
34
|
END.
|
35
|
|
36
|
ON B ANYWHERE DO:
|
37
|
MESSAGE "FRAME fr2:MOVE-TO-TOP():" FRAME fr2:MOVE-TO-TOP().
|
38
|
END.
|
39
|
|
40
|
ON C ANYWHERE DO:
|
41
|
MESSAGE "FRAME fr3:MOVE-TO-TOP():" FRAME fr3:MOVE-TO-TOP().
|
42
|
END.
|
43
|
|
44
|
ON X ANYWHERE DO:
|
45
|
MESSAGE "FRAME fr1:MOVE-TO-BOTTOM():" FRAME fr1:MOVE-TO-BOTTOM().
|
46
|
END.
|
47
|
|
48
|
ON Y ANYWHERE DO:
|
49
|
MESSAGE "FRAME fr2:MOVE-TO-BOTTOM():" FRAME fr2:MOVE-TO-BOTTOM().
|
50
|
END.
|
51
|
|
52
|
ON Z ANYWHERE DO:
|
53
|
MESSAGE "FRAME fr3:MOVE-TO-BOTTOM():" FRAME fr3:MOVE-TO-BOTTOM().
|
54
|
END.
|
55
|
|
56
|
ON ENTRY OF f1 IN FRAME fr1 DO:
|
57
|
MESSAGE "on f1:entry".
|
58
|
END.
|
59
|
|
60
|
ON LEAVE OF f1 IN FRAME fr1 DO:
|
61
|
MESSAGE "on f1:leave".
|
62
|
END.
|
63
|
|
64
|
ON ENTRY OF f2 IN FRAME fr2 DO:
|
65
|
MESSAGE "on f2:entry".
|
66
|
END.
|
67
|
|
68
|
ON LEAVE OF f2 IN FRAME fr2 DO:
|
69
|
MESSAGE "on f2:leave".
|
70
|
END.
|
71
|
|
72
|
ON ENTRY OF f3 IN FRAME fr3 DO:
|
73
|
MESSAGE "on f3:entry".
|
74
|
END.
|
75
|
|
76
|
ON LEAVE OF f3 IN FRAME fr3 DO:
|
77
|
MESSAGE "on f3:leave".
|
78
|
END.
|
79
|
|
80
|
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
|
81
|
|