Expected: change the active page fire Deactivate/Activate events

Repro:
- run
- dblclick on text box
- expected page2 caption return black
- messagebox show the message

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	ADD OBJECT pageframe1 AS pframe WITH ;
		Top = 28, ;
		Left = 46, ;
		Width = 290, ;
		Height = 188

	PROCEDURE pageframe1.Page2.Activate
		MESSAGEBOX("BUG: THIS MESSAGE IS NOT SHOW")
	ENDPROC
ENDDEFINE

DEFINE CLASS pframe as PageFrame 

	ADD OBJECT Page1 as Pagex

	ADD OBJECT Page2 as Page

ENDDEFINE

DEFINE CLASS Pagex as Page
	ADD OBJECT Text1 as Textbox with;
			Value = "double click here", ;
			Left = 60, ;
			ReadOnly = .T., ;
			Top = 38, ;
			Width = 151
			
	PROCEDURE Deactivate
		THIS.Parent.pages[2].ForeColor = 0
	ENDPROC


	PROCEDURE Activate
		THIS.Parent.pages[2].ForeColor = 255
	ENDPROC


	PROCEDURE text1.DblClick
		THIS.Parent.parent.pages[2].SETFOCUS
	ENDPROC	

ENDDEFINE