Hi

I'm testing some classes defined in prg, I have problems with a circular reference. Why isn't trigger the destroy event?

Here is the code, copy in a prg and run!!!

*------------------------------------------------------------------
acti screen
clear

public goBusiness
goBusiness=createobject('Business')
release goBusiness

*-- USO DE LA CLASE SESSION
define class Business as Custom

protected oData

procedure init

? 'Business.init'
this.oData=createobject('Data',this)

endproc

procedure destroy

? 'Business.destroy'
this.oData=.null.

endproc

enddefine


define class Data as Session

protected oBusiness

procedure Init

lParameters toBusiness

? 'Data.init'
this.oBusiness=toBusiness

endproc

procedure destroy

? 'Data.destroy'
this.oBusiness=.null.

endproc

enddefine
*-----------------------------------------------------------