Checkout Seize Manager by Mike Chalk in the Files section
under Classes.
HTH
>The following sample works:
>
>
>_SCREEN.ADDOBJECT([oTimer1],[oTimer])
>
>DEFINE CLASS oTimer AS TIMER
> INTERVAL = 1000
> PROC TIMER
> IF FILE([foo.txt])
> QUIT
> ENDIF
>ENDPROC
>ENDDEFINE
>
>Dave
>
>>I Have add a timer to my main appl that checks if the file bachup.txt is there.
>>But the timerevent or the quit-command doesn't works untill I click several times on the window.
>>My goal is the add a poss. the quit an applic. from a command at the server. file=Fcreate('t:\backup.txt')
>>
>>this is the code
>>
>>_screen.AddObject('mytimer','itstime')
>>
>>DEFINE CLASS mytimer AS TIMER && Create timerevent
>>interval=1000
>>PROCEDURE timer
>> if file('t:\backup1.kto')
>> quit
>> endif
>>enddefine
>>
>>Is there somebody who can help me whit this or has another solution in his mind.
>>
>>Thanks.
Speak using soft and sweet words in case you have to eat them later.