fp2.p
1 |
DEFINE VAR h AS HANDLE NO-UNDO. |
---|---|
2 |
|
3 |
DEFINE VARIABLE sl AS CHARACTER NO-UNDO |
4 |
VIEW-AS SELECTION-LIST |
5 |
INNER-LINES 5 |
6 |
INNER-CHARS 10 |
7 |
LIST-ITEMS "l0", "l1", "l2", "l3", "l4". |
8 |
. |
9 |
|
10 |
DEFINE VARIABLE fi AS CHAR FORMAT "X(10)" /* EXTENT 5 */ NO-UNDO VIEW-AS FILL-IN. |
11 |
|
12 |
DEFINE FRAME ff fi SKIP(1) sl WITH SIZE 30 BY 12. |
13 |
/* |
14 |
ON ENTRY, LEAVE OF fi IN FRAME ff, sl IN FRAME ff DO: |
15 |
MESSAGE "on fi:entry" LAST-EVENT:WIDGET-ENTER:NAME LAST-EVENT:WIDGET-ENTER:TYPE LAST-EVENT:EVENT-TYPE LAST-EVENT:WIDGET-LEAVE:NAME LAST-EVENT:WIDGET-LEAVE:TYPE. |
16 |
END. |
17 |
*/ |
18 |
|
19 |
sl:TAB-STOP IN FRAME ff = true. |
20 |
|
21 |
ON ENTRY OF fi IN FRAME ff DO: |
22 |
MESSAGE "on fi:entry" /*LAST-EVENT:WIDGET-ENTER:NAME LAST-EVENT:WIDGET-ENTER:TYPE LAST-EVENT:EVENT-TYPE LAST-EVENT:WIDGET-LEAVE:NAME LAST-EVENT:WIDGET-LEAVE:TYPE*/. |
23 |
END. |
24 |
|
25 |
ON LEAVE OF fi IN FRAME ff DO: |
26 |
MESSAGE "on fi:leave" /*LAST-EVENT:WIDGET-ENTER:NAME LAST-EVENT:WIDGET-ENTER:TYPE LAST-EVENT:TYPE LAST-EVENT:WIDGET-LEAVE:NAME LAST-EVENT:WIDGET-LEAVE:TYPE*/. |
27 |
/* |
28 |
RETURN NO-APPLY. |
29 |
*/ |
30 |
END. |
31 |
|
32 |
ON ENTRY OF sl IN FRAME ff DO: |
33 |
MESSAGE "on sl:entry, noapply" /*LAST-EVENT:WIDGET-ENTER:NAME LAST-EVENT:WIDGET-ENTER:TYPE LAST-EVENT:TYPE LAST-EVENT:WIDGET-LEAVE:NAME LAST-EVENT:WIDGET-LEAVE:TYPE*/. |
34 |
RETURN NO-APPLY. |
35 |
END. |
36 |
|
37 |
ON LEAVE OF sl IN FRAME ff DO: |
38 |
MESSAGE "on sl:leave" /*LAST-EVENT:WIDGET-ENTER:NAME LAST-EVENT:WIDGET-ENTER:TYPE LAST-EVENT:TYPE LAST-EVENT:WIDGET-LEAVE:NAME LAST-EVENT:WIDGET-LEAVE:TYPE*/. |
39 |
END. |
40 |
|
41 |
h = sl:HANDLE IN FRAME ff. |
42 |
message "Ready". |
43 |
ENABLE ALL WITH FRAME ff. |
44 |
|
45 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
46 |
|