>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 >