Hi Fabio,

Interesting reason, isn't clear but better then nothing.

MartinJ

>>He, he,
>>
>>But I need This:
>>

>>_Screen.AddObject("tool","_tool")
>>?_screen.tool.Run()
>>CLEAR ALL
>>?_screen.tool.Run() && where is my tool?
>>
>>define CLASS _tool AS custom
>>  name="_tool"
>>
>>  PROCEDURE Run()
>>    wait wind "tool..."
>>  ENDPROC
>>enddefine
>>

>>
>>MartinJ
>>
>
>Martin,
>
>a object can survive to the CLEAR ALL command,
>but only with a tricked call stack,
>and with a autoreplication.
>
>But this big side effect:
>CLEAR ALL is catched and it is stopped!
>
>Then it is not a CLEAR ALL,
>and at this point,
>i'm not sure that VFP's state is integral.
>
>

>clear
>ON ERROR && RETURN TO TOPLEVEL
>SET NULLDISPLAY TO "None"
>
>=CREATEOBJECT("replicator")
>=ADDPROPERTY(_screen.replicator,"anotherproperty","someValue")
>
>? "object is ",_screen.replicator.TAG
>? "anotherproperty is ",_screen.replicator.anotherproperty
>? "counter is ",_screen.replicator.counter
>
>* this is stopped
>TOPLEVEL()
>
>? "object is ",_screen.replicator.TAG
>? "anotherproperty is ",_screen.replicator.anotherproperty
>? "counter is ",_screen.replicator.counter
>
>* this is not stopped
>TOPLEVEL()
>
>? "object is ",_screen.replicator
>
>PROCEDURE TOPLEVEL
>
>	CLEARALL()
>	
>PROCEDURE  CLEARALL
>	?
>	? "clear all"
>	CLEAR ALL
>ENDPROC
>
>define CLASS replicator AS custom
>	counter = 2
>	
>  PROCEDURE Init
>  	this.Tag = SYS(2015)
>  	_Screen.AddPROPERTY("replicator",m.This)
>  	? "init",THIS.TAG
>
>  PROCEDURE Error
>  	LPARAMETERS nError, cMethod, nLine
>  	RETURN TO TOPLEVEL
>
>  PROCEDURE DESTROY
>  	? "DESTROY",THIS.TAG
>  	THIS.counter=THIS.counter-1
>  	IF THIS.counter=1
>		WITH CREATEOBJECT(m.This.Class)
>			FOR I=1 TO AMEMBERS(APROPERTY,m.This,0)
>				IF TYPE("this."+APROPERTY[m.i])=="U" OR PEMSTATUS(m.this,APROPERTY[m.i],1)
>					LOOP
>				ENDIF
>				=.ADDPROPERTY(APROPERTY[m.i],GETPEM(m.This,APROPERTY[m.i]))
>			NEXT
>			* for ... to aevents()....
>			*
>		ENDWITH
>		THROW
>	ENDIF
>
>ENDDEFINE
>