fv.p
| 1 |
DEFINE VARIABLE fi AS INTEGER FORMAT "$>,>>>ABC" NO-UNDO |
|---|---|
| 2 |
VIEW-AS FILL-IN. |
| 3 |
DEFINE VARIABLE h AS HANDLE. |
| 4 |
|
| 5 |
DEFINE FRAME ff fi WITH SIZE 20 BY 4 TITLE "FILL-IN". |
| 6 |
h = fi:HANDLE IN FRAME ff. |
| 7 |
|
| 8 |
DEFINE VARIABLE cb AS CHARACTER NO-UNDO FORMAT "x(9)" |
| 9 |
VIEW-AS COMBO-BOX DROP-DOWN SIZE-CHARS 10 BY 10 |
| 10 |
LIST-ITEM-PAIRS "l0", "0", "l1", "1", "l2", "2", "l3", " 3", "l4", "4", "?", "U", "V", "?" |
| 11 |
. |
| 12 |
|
| 13 |
DEFINE FRAME b cb WITH SIZE 30 BY 12 TITLE "COMBO-BOX". |
| 14 |
|
| 15 |
ENABLE ALL WITH FRAME ff. |
| 16 |
ENABLE ALL WITH FRAME b. |
| 17 |
|
| 18 |
ON CTRL-Y ANYWHERE DO: |
| 19 |
message "value:" h:SCREEN-VALUE. |
| 20 |
END. |
| 21 |
|
| 22 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 23 |
|