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.