1
|
DEFINE VARIABLE choice AS CHARACTER NO-UNDO FORMAT "x(50)"
|
2
|
LABEL "You have selected".
|
3
|
DEFINE VARIABLE idx AS INTEGER NO-UNDO.
|
4
|
DEFINE VARIABLE items AS CHARACTER NO-UNDO.
|
5
|
|
6
|
DEFINE VARIABLE rc AS LOGICAL NO-UNDO.
|
7
|
|
8
|
DEFINE FRAME b WITH SIZE 70 BY 6.
|
9
|
DEFINE FRAME c choice.
|
10
|
DEFINE FRAME y items.
|
11
|
|
12
|
DEFINE VARIABLE aitem AS CHARACTER NO-UNDO LABEL "Item to add last".
|
13
|
DEFINE VARIABLE aval AS CHARACTER NO-UNDO LABEL "Value to add last".
|
14
|
DEFINE VARIABLE fitem AS CHARACTER NO-UNDO LABEL "Item to add first".
|
15
|
DEFINE VARIABLE fval AS CHARACTER NO-UNDO LABEL "Value to add first".
|
16
|
|
17
|
DEFINE FRAME z aitem SPACE(2) aval.
|
18
|
DEFINE FRAME fitem SPACE(2) fval.
|
19
|
|
20
|
DEFINE VARIABLE hRS AS HANDLE NO-UNDO.
|
21
|
|
22
|
RUN P_Create_RS.
|
23
|
|
24
|
ENABLE ALL WITH FRAME b NO-LABELS TITLE "Please select an item".
|
25
|
ENABLE items WITH FRAME y NO-LABELS TITLE "Please specify item to delete" WIDTH 50.
|
26
|
ENABLE aitem aval WITH FRAME z TITLE "Please specify item(s) to add last" WIDTH 50.
|
27
|
ENABLE fitem fval WITH FRAME f TITLE "Please specify item(s) to add first" WIDTH 50.
|
28
|
|
29
|
ON 'VALUE-CHANGED':U OF hRS
|
30
|
DO:
|
31
|
choice = SELF:SCREEN-VALUE.
|
32
|
DISPLAY choice WITH FRAME c SIDE-LABELS.
|
33
|
END.
|
34
|
|
35
|
ON RETURN OF items IN FRAME y DO:
|
36
|
ASSIGN FRAME y items.
|
37
|
MESSAGE items VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
38
|
rc = hRS:DELETE(items).
|
39
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
40
|
END.
|
41
|
|
42
|
ON RETURN OF aval IN FRAME z DO:
|
43
|
ASSIGN FRAME z aitem aval.
|
44
|
MESSAGE aitem aval VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
45
|
rc = hRS:ADD-LAST(aitem, aval).
|
46
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
47
|
END.
|
48
|
|
49
|
ON RETURN OF fval IN FRAME f DO:
|
50
|
ASSIGN FRAME f fitem fval.
|
51
|
MESSAGE fitem fval VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
52
|
rc = hRS:ADD-FIRST(fitem, fval).
|
53
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
54
|
END.
|
55
|
|
56
|
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
|
57
|
|
58
|
PROCEDURE P_Create_RS PRIVATE :
|
59
|
|
60
|
CREATE RADIO-SET hRS ASSIGN
|
61
|
HEIGHT-CHARS = 1
|
62
|
WIDTH-CHARS = 10.0
|
63
|
FRAME = FRAME b:HANDLE
|
64
|
HORIZONTAL = FALSE
|
65
|
BGCOLOR = 8
|
66
|
AUTO-RESIZE = TRUE
|
67
|
.
|
68
|
hRS:ADD-LAST("Item 1", "1").
|
69
|
hRS:ADD-LAST("Item 2", "2").
|
70
|
hRS:ADD-LAST("Item 3", "3").
|
71
|
|
72
|
END PROCEDURE.
|
73
|
|
74
|
|