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
|
sl:LIST-ITEMS IN FRAME b = "1,2,3,4,5,6,7,8,9,A,B,C,D,E,F".
|
15
|
ENABLE sl WITH FRAME b NO-LABELS TITLE "Please select an item" WIDTH 50.
|
16
|
ENABLE idx WITH FRAME x NO-LABELS TITLE "Please select an item to delete" WIDTH 50.
|
17
|
ENABLE items WITH FRAME y NO-LABELS TITLE "Please specify item(s) to delete" WIDTH 50.
|
18
|
|
19
|
ON RETURN OF items IN FRAME y DO:
|
20
|
ASSIGN FRAME y items.
|
21
|
MESSAGE items VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
22
|
rc = sl:DELETE(items) IN FRAME b.
|
23
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
24
|
END.
|
25
|
|
26
|
ON RETURN OF idx IN FRAME x DO:
|
27
|
ASSIGN FRAME x idx.
|
28
|
MESSAGE idx VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
29
|
rc = sl:DELETE(idx) IN FRAME b.
|
30
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
31
|
END.
|
32
|
|
33
|
ON VALUE-CHANGED OF sl IN FRAME b DO:
|
34
|
choice = sl:SCREEN-VALUE.
|
35
|
DISPLAY choice WITH FRAME c SIDE-LABELS.
|
36
|
END.
|
37
|
|
38
|
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
|
39
|
|
40
|
CATCH eAnyError AS Progress.Lang.ERROR:
|
41
|
MESSAGE "Error message and number retrieved from error object..."
|
42
|
eAnyError:GetMessage(1) eAnyError:GetMessageNum(1)
|
43
|
VIEW-AS ALERT-BOX BUTTONS OK.
|
44
|
END CATCH.
|