|
1
|
DEFINE RECTANGLE rect2
|
|
2
|
EDGE-PIXELS 4
|
|
3
|
SIZE 30 BY 6.
|
|
4
|
DEFINE VARIABLE var2 AS CHARACTER.
|
|
5
|
|
|
6
|
DEFINE BUTTON btn2 LABEL "OK2".
|
|
7
|
|
|
8
|
DEFINE BUTTON btn1 LABEL "OK1".
|
|
9
|
|
|
10
|
DEFINE FRAME pframe btn1 AT COL 80 ROW 9 space btn2
|
|
11
|
rect2 AT COL 70 ROW 8
|
|
12
|
var2 AT COL 75 ROW 12
|
|
13
|
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
|
|
14
|
SIDE-LABELS NO-UNDERLINE THREE-D
|
|
15
|
AT COL 1 ROW 1
|
|
16
|
SIZE 120 BY 15
|
|
17
|
TITLE "Parent Frame" BGCOLOR 2.
|
|
18
|
|
|
19
|
DEFINE VARIABLE hText AS HANDLE.
|
|
20
|
|
|
21
|
CREATE TEXT hText
|
|
22
|
ASSIGN
|
|
23
|
FRAME = FRAME pframe:HANDLE
|
|
24
|
HIDDEN = FALSE
|
|
25
|
WIDTH = 4
|
|
26
|
HEIGHT = 1
|
|
27
|
COL = 90
|
|
28
|
ROW = 10.5
|
|
29
|
SCREEN-VALUE = "text".
|
|
30
|
|
|
31
|
hText:MOVABLE = TRUE.
|
|
32
|
|
|
33
|
DEFINE VAR wWin AS HANDLE.
|
|
34
|
|
|
35
|
CREATE WINDOW wWin ASSIGN
|
|
36
|
HIDDEN = YES
|
|
37
|
TITLE = "Issue 8647"
|
|
38
|
HEIGHT = 15
|
|
39
|
WIDTH = 120
|
|
40
|
RESIZE = no
|
|
41
|
SCROLL-BARS = no
|
|
42
|
STATUS-AREA = yes
|
|
43
|
BGCOLOR = ?
|
|
44
|
FGCOLOR = ?
|
|
45
|
THREE-D = yes
|
|
46
|
MESSAGE-AREA = yes
|
|
47
|
SENSITIVE = yes.
|
|
48
|
|
|
49
|
DEFINE VAR fld1 AS CHAR.
|
|
50
|
|
|
51
|
DEFINE VAR fld2 AS CHAR.
|
|
52
|
|
|
53
|
DEFINE FRAME frame1 fld1 WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
|
|
54
|
SIDE-LABELS NO-UNDERLINE THREE-D
|
|
55
|
AT COL 1 ROW 1
|
|
56
|
SIZE 83 BY 13
|
|
57
|
TITLE "Frame 1" BGCOLOR 1.
|
|
58
|
FRAME frame1:HIDDEN = TRUE.
|
|
59
|
FRAME frame1:MOVABLE = TRUE.
|
|
60
|
FRAME frame1:RESIZABLE = TRUE.
|
|
61
|
|
|
62
|
|
|
63
|
|
|
64
|
DEFINE FRAME frame2 fld2 AT ROW 1.5 COL 18 COLON-ALIGNED WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
|
|
65
|
SIDE-LABELS NO-UNDERLINE THREE-D
|
|
66
|
AT COL 40 ROW 1
|
|
67
|
SIZE 60 BY 10
|
|
68
|
TITLE "Frame 2" BGCOLOR 3.
|
|
69
|
FRAME frame2:HIDDEN = TRUE.
|
|
70
|
FRAME frame2:MOVABLE = TRUE.
|
|
71
|
FRAME frame2:RESIZABLE = TRUE.
|
|
72
|
|
|
73
|
|
|
74
|
/* z-order of frames */
|
|
75
|
FRAME frame1:FRAME = FRAME pframe:HANDLE.
|
|
76
|
FRAME frame2:FRAME = FRAME pframe:HANDLE.
|
|
77
|
|
|
78
|
FRAME frame1:HIDDEN = FALSE.
|
|
79
|
FRAME frame2:HIDDEN = FALSE.
|
|
80
|
btn1:MOVABLE IN FRAME pframe = TRUE.
|
|
81
|
|
|
82
|
btn2:MOVABLE IN FRAME pframe = TRUE.
|
|
83
|
|
|
84
|
var2:MOVABLE IN FRAME pframe = TRUE.
|
|
85
|
var2:SIDE-LABEL-HANDLE:MOVABLE IN FRAME pframe = TRUE.
|
|
86
|
/* rectangle cannot be moved */
|
|
87
|
rect2:MOVABLE IN FRAME pframe = TRUE.
|
|
88
|
|
|
89
|
|
|
90
|
VIEW wWin.
|
|
91
|
|
|
92
|
ENABLE btn1 btn2 var2 WITH FRAME pframe IN WINDOW wWin.
|
|
93
|
|
|
94
|
|
|
95
|
|
|
96
|
WAIT-FOR CLOSE OF THIS-PROCEDURE.
|