A trick someone showed me (I believe it was someone at RBTI).

>>On the reference manual Page 446 it talks about the SETFOCUS alias command
>>but no mention of the WAIT. Of course without the WAIT MDI forms are not
>>usable since the code execution will continue leaving the forms on the
screen.

A simple while loop using the IFWINDOW function should suffice for imitating
the WAIT parameter.

    edit using ABCForm AS ABCForm
    while (IFWINDOW('ABCForm')) = 1 then
       pause for 1
    endwh

When I was playing around with these, before someone convinced me that it
wasn't worth the effort, I wrote a small utility file that did this.

    set var &%1 = (IFWINDOW(.%1))
    while &%1 = 1 then
        pause for 1
        set var &%1 = (IFWINDOW(.%1))
    endwhile
    clear var &%1

Then call this like so: run ChckForm.cmd using 'formname'

Jenna

Reply via email to