Hi all,

Problem: NODEFAULT on FirstFormTabControl.Gotfocus generate infinite loop.

Execute this code:

PUBLIC oform1

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

DEFINE CLASS form1 AS form

Caption = "gotfocus bug"
Name = "Form1"

ADD OBJECT text1 AS textbox WITH Left = 60, Top = 35, Name = "Text1",TabIndex=6

ADD OBJECT text2 AS textbox WITH Left = 63, Top = 76, Name = "Text2",TabIndex=5

PROCEDURE text1.GotFocus
WAIT WINDOWS "gotfocus on :"+this.Name NOWAIT TIMEOUT 2
ENDPROC

PROCEDURE text2.GotFocus
WAIT WINDOWS "gotfocus on :"+this.Name NOWAIT TIMEOUT 2
NODEFAULT
ENDPROC

ENDDEFINE

Infinite GotFocus Loop on Activate Form.
Click on text1 : loop stop
Click on text2 : loop restart
Click on text1 : loop stop
Press Key Tab : loop restart

Fabio