>>x = CREATEOBJECT('dad') >>x.RELEASE >> >>DEFINE CLASS dad as Custom >> son = null >> PROCEDURE init >> this.son = CREATEOBJECT([son]) >> this.son.dad = this >> ENDPROC >> PROCEDURE destroy >> MESSAGEBOX([Dad - Destroy]) >> ENDPROC >> PROCEDURE release >> this.son = null >> endproc >>ENDDEFINE >>***--------------------------------*** >>DEFINE CLASS son as Custom >> dad = null >> PROCEDURE init >> ENDPROC >> PROCEDURE destroy >> MESSAGEBOX([Son - Destroy]) >> ENDPROC >>ENDDEFINE >>