c2.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 |
|
14 |
message hx:height-chars. |
15 |
|
16 |
hf:BOX = TRUE. |
17 |
|
18 |
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. |
19 |
|