go.p
| 1 |
def temp-table dummy field num as integer field txt as char format "x(70)". |
|---|---|
| 2 |
create dummy. assign dummy.num = 0 dummy.txt = "0 - quit". |
| 3 |
create dummy. assign dummy.num = 1 dummy.txt = "1 - brws-size-implicit-dyn.p". |
| 4 |
|
| 5 |
def query q for dummy. |
| 6 |
def browse brws query q display dummy.txt with 17 down width 70 no-labels. |
| 7 |
open query q for each dummy. |
| 8 |
form brws with frame f. |
| 9 |
enable all with frame f. |
| 10 |
|
| 11 |
repeat on stop undo, next: |
| 12 |
hide message no-pause. |
| 13 |
view frame f. |
| 14 |
wait-for return of brws. |
| 15 |
|
| 16 |
if num = 0 then quit. |
| 17 |
else if num = 1 then run brws-size-implicit-dyn.p. |
| 18 |
else pause message "incorrect testcase number!". |
| 19 |
|
| 20 |
|
| 21 |
pause message "END". |
| 22 |
pause message "END". |
| 23 |
quit. |
| 24 |
end. |