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
|
|
11
|
DEF FRAME fr1 f1 WITH TITLE "fr1" AT COLUMN 1 ROW 1 OVERLAY.
|
12
|
DEF FRAME fr2 f2 WITH TITLE "fr2" AT COLUMN 4 ROW 4 OVERLAY.
|
13
|
|
14
|
DEF VAR h1 AS HANDLE.
|
15
|
DEF VAR h2 AS HANDLE.
|
16
|
|
17
|
h1 = f1:HANDLE IN FRAME fr1.
|
18
|
h2 = f2:HANDLE IN FRAME fr2.
|
19
|
|
20
|
ENABLE ALL WITH FRAME fr1.
|
21
|
ENABLE ALL WITH FRAME fr2.
|
22
|
|
23
|
message "fr1:KEEP-FRAME-Z-ORDER" FRAME fr1:WINDOW:KEEP-FRAME-Z-ORDER FRAME fr1:HIDDEN FRAME fr1:VISIBLE.
|
24
|
message "fr2:KEEP-FRAME-Z-ORDER" FRAME fr2:WINDOW:KEEP-FRAME-Z-ORDER FRAME fr2:HIDDEN FRAME fr2:VISIBLE.
|
25
|
|
26
|
ON CTRL-A ANYWHERE DO:
|
27
|
FRAME fr1:VISIBLE = TRUE.
|
28
|
MESSAGE "FRAME fr1:MOVE-TO-TOP():" FRAME fr1:MOVE-TO-TOP() FRAME fr1:HIDDEN FRAME fr1:VISIBLE FOCUS:NAME.
|
29
|
APPLY "ENTRY" TO FRAME fr1.
|
30
|
END.
|
31
|
|
32
|
ON CTRL-B ANYWHERE DO:
|
33
|
FRAME fr2:VISIBLE = TRUE.
|
34
|
MESSAGE "FRAME fr2:MOVE-TO-TOP():" FRAME fr2:MOVE-TO-TOP().
|
35
|
APPLY "ENTRY" TO FRAME fr2.
|
36
|
END.
|
37
|
|
38
|
ON CTRL-X ANYWHERE DO:
|
39
|
MESSAGE "FRAME fr1:MOVE-TO-BOTTOM():" FRAME fr1:MOVE-TO-BOTTOM().
|
40
|
END.
|
41
|
|
42
|
ON CTRL-Y ANYWHERE DO:
|
43
|
MESSAGE "FRAME fr2:MOVE-TO-BOTTOM():" FRAME fr2:MOVE-TO-BOTTOM().
|
44
|
END.
|
45
|
|
46
|
ON ENTRY OF f1 IN FRAME fr1 DO:
|
47
|
MESSAGE "on f1:entry".
|
48
|
END.
|
49
|
|
50
|
ON LEAVE OF f1 IN FRAME fr1 DO:
|
51
|
MESSAGE "on f1:leave".
|
52
|
END.
|
53
|
|
54
|
ON ENTRY OF f2 IN FRAME fr2 DO:
|
55
|
MESSAGE "on f2:entry".
|
56
|
END.
|
57
|
|
58
|
ON LEAVE OF f2 IN FRAME fr2 DO:
|
59
|
MESSAGE "on f2:leave".
|
60
|
END.
|
61
|
|
62
|
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
|
63
|
|