1
|
DEFINE VARIABLE whandle1 AS HANDLE.
|
2
|
DEFINE VARIABLE whandle2 AS HANDLE.
|
3
|
DEFINE VARIABLE whandle3 AS HANDLE.
|
4
|
DEFINE BUTTON bviewp LABEL "VIEW".
|
5
|
DEFINE BUTTON bviewc LABEL "VIEW".
|
6
|
DEFINE BUTTON bviewgc LABEL "VIEW".
|
7
|
DEFINE BUTTON bhidep LABEL "HIDE".
|
8
|
DEFINE BUTTON bhidec LABEL "HIDE".
|
9
|
DEFINE BUTTON bhidegc LABEL "HIDE".
|
10
|
DEFINE BUTTON bhiddp LABEL "HIDDEN".
|
11
|
DEFINE BUTTON bhiddc LABEL "HIDDEN".
|
12
|
DEFINE BUTTON bhiddgc LABEL "HIDDEN".
|
13
|
|
14
|
DEFINE FRAME alpha SKIP
|
15
|
"Parent" AT 11 "Child" AT 37 "Grand Child" AT 64 SKIP
|
16
|
bviewp AT 11 bviewc AT 37 bviewgc AT 64 SKIP(.5)
|
17
|
bhidep AT 11 bhidec AT 37 bhidegc AT 64 SKIP(.5)
|
18
|
bhiddp AT 11 bhiddc AT 37 bhiddgc AT 64
|
19
|
WITH SIZE 80 BY 6.
|
20
|
|
21
|
CREATE WINDOW whandle1
|
22
|
ASSIGN TITLE = "Parent Window"
|
23
|
HEIGHT-CHARS = 5
|
24
|
WIDTH-CHARS = 27
|
25
|
PARENT = CURRENT-WINDOW.
|
26
|
|
27
|
CREATE WINDOW whandle2
|
28
|
ASSIGN TITLE = "Child Window"
|
29
|
HEIGHT-CHARS = 5
|
30
|
WIDTH-CHARS = 27
|
31
|
PARENT = whandle1.
|
32
|
|
33
|
CREATE WINDOW whandle3
|
34
|
ASSIGN TITLE = "Grand Child Window"
|
35
|
HEIGHT-CHARS = 5
|
36
|
WIDTH-CHARS = 27
|
37
|
PARENT = whandle2.
|
38
|
|
39
|
ON CHOOSE OF bviewp DO: /* View Parent */
|
40
|
VIEW whandle1.
|
41
|
RUN win-status IN THIS-PROCEDURE.
|
42
|
END.
|
43
|
|
44
|
ON CHOOSE OF bhidep DO: /* Hide Parent */
|
45
|
HIDE whandle1.
|
46
|
RUN win-status IN THIS-PROCEDURE.
|
47
|
END.
|
48
|
|
49
|
ON CHOOSE OF bhiddp DO: /* Hidden Parent */
|
50
|
whandle1:HIDDEN = TRUE.
|
51
|
RUN win-status IN THIS-PROCEDURE.
|
52
|
END.
|
53
|
|
54
|
ON CHOOSE OF bviewc DO: /* View Child */
|
55
|
VIEW whandle2.
|
56
|
RUN win-status IN THIS-PROCEDURE.
|
57
|
END.
|
58
|
|
59
|
ON CHOOSE OF bhidec DO: /* Hide Child */
|
60
|
HIDE whandle2.
|
61
|
RUN win-status IN THIS-PROCEDURE.
|
62
|
END.
|
63
|
|
64
|
ON CHOOSE OF bhiddc DO: /* Hidden Child */
|
65
|
whandle2:HIDDEN = TRUE.
|
66
|
RUN win-status IN THIS-PROCEDURE.
|
67
|
END.
|
68
|
|
69
|
ON CHOOSE OF bviewgc DO: /* View Grand Child */
|
70
|
VIEW whandle3.
|
71
|
RUN win-status IN THIS-PROCEDURE.
|
72
|
END.
|
73
|
|
74
|
ON CHOOSE OF bhidegc DO: /* Hide Grand Child */
|
75
|
HIDE whandle3.
|
76
|
RUN win-status IN THIS-PROCEDURE.
|
77
|
END.
|
78
|
|
79
|
ON CHOOSE OF bhiddgc DO: /* Hidden Grand Child */
|
80
|
whandle3:HIDDEN = TRUE.
|
81
|
RUN win-status IN THIS-PROCEDURE.
|
82
|
END.
|
83
|
|
84
|
CURRENT-WINDOW:TITLE = "Control Panel".
|
85
|
CURRENT-WINDOW:HEIGHT-CHARS = 6.
|
86
|
ENABLE ALL IN WINDOW CURRENT-WINDOW WITH FRAME alpha.
|
87
|
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
|
88
|
|
89
|
PROCEDURE win-status:
|
90
|
MESSAGE "Parent HIDDEN:" whandle1:HIDDEN
|
91
|
"/ Parent VISIBLE:" whandle1:VISIBLE
|
92
|
"/ Child HIDDEN:" whandle2:HIDDEN
|
93
|
"/ Child VISIBLE:" whandle2:VISIBLE.
|
94
|
|
95
|
MESSAGE "Grand Child HIDDEN:" whandle3:HIDDEN
|
96
|
"/ Grand Child VISIBLE:" whandle3:VISIBLE.
|
97
|
END.
|