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
|
DEFINE VARIABLE cb AS CHARACTER NO-UNDO
|
6
|
VIEW-AS COMBO-BOX.
|
7
|
DEFINE VARIABLE rc AS LOGICAL NO-UNDO.
|
8
|
DEFINE FRAME b cb.
|
9
|
DEFINE FRAME c choice.
|
10
|
DEFINE FRAME x idx.
|
11
|
DEFINE FRAME y items.
|
12
|
|
13
|
DEFINE VARIABLE aitems AS CHARACTER NO-UNDO LABEL "Items to add".
|
14
|
DEFINE VARIABLE aitem AS CHARACTER NO-UNDO LABEL "Item to add".
|
15
|
DEFINE VARIABLE aval AS CHARACTER NO-UNDO LABEL "Value to add".
|
16
|
|
17
|
DEFINE FRAME z aitems SKIP(1) aitem SPACE(2) aval.
|
18
|
/*
|
19
|
cb:LIST-ITEM-PAIRS IN FRAME b = "l1,1,l2,2,l3,3,l4,4,l5,5,l6,6,l7,7,l8,8,l9,9,lA,A,lB,B,lC,C,lD,D,lE,E,lF,F".
|
20
|
*/
|
21
|
cb:LIST-ITEMS IN FRAME b = "l1,l2,l3,l4,l5,l6,l7,l8,l9,lA,lB,lC,lD,lE,lF".
|
22
|
ENABLE cb WITH FRAME b NO-LABELS TITLE "Please select an item" WIDTH 50.
|
23
|
ENABLE idx WITH FRAME x NO-LABELS TITLE "Please select an item to delete" WIDTH 50.
|
24
|
ENABLE items WITH FRAME y NO-LABELS TITLE "Please specify item(s) to delete" WIDTH 50.
|
25
|
ENABLE aitems aitem aval WITH FRAME z TITLE "Please specify item(s) to add" WIDTH 50.
|
26
|
|
27
|
|
28
|
ON RETURN OF idx IN FRAME x DO:
|
29
|
ASSIGN FRAME x idx.
|
30
|
MESSAGE idx VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
31
|
rc = cb:DELETE(idx) IN FRAME b.
|
32
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
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 = cb:DELETE(items) IN FRAME b.
|
39
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
40
|
END.
|
41
|
|
42
|
ON RETURN OF aitems IN FRAME z DO:
|
43
|
ASSIGN FRAME z aitems.
|
44
|
MESSAGE aitems VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
45
|
rc = cb:ADD-LAST(aitems) IN FRAME b.
|
46
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
47
|
END.
|
48
|
|
49
|
ON RETURN OF aval IN FRAME z DO:
|
50
|
ASSIGN FRAME z aitem aval.
|
51
|
MESSAGE aitem aval VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
52
|
rc = cb:ADD-LAST(aitem, aval) IN FRAME b.
|
53
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
54
|
END.
|
55
|
|
56
|
ON VALUE-CHANGED OF cb IN FRAME b DO:
|
57
|
choice = cb:SCREEN-VALUE.
|
58
|
DISPLAY choice WITH FRAME c SIDE-LABELS.
|
59
|
END.
|
60
|
|
61
|
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
|
62
|
/*
|
63
|
CATCH eAnyError AS Progress.Lang.ERROR:
|
64
|
MESSAGE "Error message and number retrieved from error object..."
|
65
|
eAnyError:GetMessage(1) eAnyError:GetMessageNum(1)
|
66
|
VIEW-AS ALERT-BOX BUTTONS OK.
|
67
|
END CATCH.
|
68
|
*/
|
69
|
|
70
|
|
71
|
|