CLEAR
=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
		? "AMEMBER(PAGE1) = #",AMEMBERS(AMM,this.Page1)
ENDDEFINE