CLEAR
ON ERROR ?? "Error: ",MESSAGE()
=NEWOBJECT("pageframe1")

DEFINE CLASS pageframe1 AS Pageframe
	Pagecount = 1
	
	PROCEDURE Init
		? "Pagecount is",this.PageCount 
		? "Now remove the page1",this.RemoveObject("Page1")
		? "Pagecount is",this.PageCount 
		? "this.Page1 is a ",this.Page1
		? "extract the zombi reference"
		oZombi = this.Page1
		? "this.Page1.name is ",this.Page1.Name
		? "zombi.name is ",oZombi.Name
		? "Addobject fire a error: ",this.AddObject("Page1","page")
		? "Add a page member it makes to relive the zombi"
		this.PageCount = 1
		? "this.Page1.name is ",this.Page1.Name
		? "Page1 is a new object ",oZombi=this.Page1
                addproperty(oZombi,"some",34)
                ? oZombi.some
ENDDEFINE