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

DEFINE CLASS pageframe1 AS Pageframe
	Pagecount = 1
	
	PROCEDURE Init
		? "Pagecount is",this.PageCount
		? "Rename Page1 to Page1Renamed"
		this.Page1.Name = "Page1Renamed"
		? "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 Page1 fire a error: ",this.AddObject("Page1","page")
		? "Page1=Page1Renamed =",this.Page1=this.Page1Renamed

ENDDEFINE