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