[RBASE-L] - Re: MDI form and waiting

[MikeB]

{
Declare the following ONCE
somewhere in the session (On before startEEP is ok)
}

STDCALL void 'Sleep' (integer)
STDCALL function 'GetTickCount' () : integer


{Then your Form code:}

set var iTick INTEGER = (dlcall('kernel32','getTickcount'))

set var iMAX int = (.iTick + 15000)  -- Max time in ms you want to wait if you 
want a limit

while vVariableInForm1 = 'False' or iTick <> iMAX then

...  --some code to check vVariableInForm1's value.
  set var iTick INTEGER = (dlcall('kernel32','getTickcount'))
  ProcessMessage
  SET VAR vret = (dlcall('kernel32','sleep', 500)) -- 500ms
endwhile


----- Original Message ----- 
From: "Charles Parks" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <rbase-l@rbase.com>
Sent: Wednesday, March 19, 2008 12:15 PM
Subject: [RBASE-L] - MDI form and waiting


If a variable value is being set in a different form opened with a MDI option 
is there a way to wait until that value has been set been set before calling 
the next line of code in the calling form?

The following works in tracing but locks up in running mode.

set var vVariableInForm1 text = 'False'

EDIT USING Form1 MDI AS Form1  --vVariableInForm1 will be set to true in this 
form and the form will be closed with CloseWindow

while vVariableInForm1 = 'False' then
...  --some code to check vVariableInForm1's value.
endwhile

...  --Continue with calling form's code.

Is there a pause timer shorter than 1?