DEFINE CLASS myChild as myParent OF myparent.prg PROCEDURE Init(n as Integer) This.myNumber = n ENDPROC ENDDEFINEand test prg
*-- testInheritance.prg o1 = NEWOBJECT("myParent","myparent.prg") ? o1.myNumber o1.myNumber = 5678 ? o1.myNumber * * o2 = NEWOBJECT("myChild","mychild.prg",0,lnNumber) * I had problems to use the parameters clause in NewObject() * SET PROCEDURE TO myChild.prg o2 = CREATEOBJECT("myChild",o1.myNumber) ? o2.myNumber o1 = null o2 = null