fp1.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 |
ON ENTRY OF fi IN FRAME ff DO: |
20 |
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. |
21 |
END. |
22 |
|
23 |
ON LEAVE OF fi IN FRAME ff DO: |
24 |
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. |
25 |
END. |
26 |
|
27 |
ON ENTRY OF sl IN FRAME ff DO: |
28 |
MESSAGE "on sl:entry" LAST-EVENT:WIDGET-ENTER:NAME LAST-EVENT:WIDGET-ENTER:TYPE LAST-EVENT:TYPE LAST-EVENT:WIDGET-LEAVE:NAME LAST-EVENT:WIDGET-LEAVE:TYPE. |
29 |
END. |
30 |
|
31 |
ON LEAVE OF sl IN FRAME ff DO: |
32 |
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. |
33 |
END. |
34 |
|
35 |
h = sl:HANDLE IN FRAME ff. |
36 |
message "Ready". |
37 |
ENABLE ALL WITH FRAME ff. |
38 |
|
39 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
40 |
|