>DEFINE CLASS myParent as Custom > myNumber = 1234 >ENDDEFINE >>and this one
>DEFINE CLASS myChild as myParent OF myparent.prg > *-- no action needed >ENDDEFINE >>Y and a test program
>*-- testInheritance.prg >o1 = NEWOBJECT("myParent","myparent.prg") >? o1.myNumber >o1.myNumber = 5678 >? o1.myNumber >o2 = NEWOBJECT("myChild","mychild.prg") >? o2.myNumber > >o1 = null >o2 = null >>