PUBLIC oform1

ACTIVATE  WINDOW "Debug Output"

ON ESCAPE oform1=NULL

SET ESCAPE ON
		
oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	Caption = "THE BUGS HAVE A GOOD TIME AND THEY RACE"
	STARTDATETIME = DATETIME()
	
	ADD OBJECT pageframe1 AS pageframe WITH ;
		PageCount = 4, ;
		Top = 36, ;
		Left = 36, ;
		Width = 241, ;
		Height = 169
	
	PROCEDURE Init
		WAIT WINDOWS "PRESS ESC TO STOP" NOWAIT
	
	PROCEDURE Destroy
		WAIT CLEAR
	
	PROCEDURE GotFocus
		DEBUGOUT PROGRAM()
		KEYBOARD '{RIGHTARROW}'
	ENDPROC

	PROCEDURE pageframe1.Page1.DeActivate
		NODEFAULT
	ENDPROC
	
	PROCEDURE pageframe1.Page2.DeActivate
		NODEFAULT
	ENDPROC

	PROCEDURE pageframe1.Page2.DeActivate
		NODEFAULT
	ENDPROC
	
	PROCEDURE pageframe1.Page3.DeActivate
		NODEFAULT
	ENDPROC

	PROCEDURE pageframe1.Page4.DeActivate
		NODEFAULT
	ENDPROC

ENDDEFINE