c1.p
| 1 |
def var cb as char view-as combo-box list-items "a", "d", "e", "f", "g", "h". |
|---|---|
| 2 |
|
| 3 |
def var hf as handle. |
| 4 |
def var hx as handle. |
| 5 |
|
| 6 |
define frame f1 cb. |
| 7 |
|
| 8 |
hf = FRAME f1:handle. |
| 9 |
hx = cb:handle IN FRAME f1. |
| 10 |
|
| 11 |
hx:row = 6. |
| 12 |
hf:ROW = 3. |
| 13 |
hf:BOX = TRUE. |
| 14 |
|
| 15 |
enable cb with frame f1 no-box no-labels size 20 by 15. |
| 16 |
|
| 17 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
| 18 |
|