SuperStrict

Type TExtTextField
   Global Group:TList = New TList
   Field Gadget:TGadget
   Field ChangeonEnter:Int = False

   
   
   Function Create:TExtTextField(X:Int , Y:Int , Width:Int , Parent:TGadget, COE:Int = True)
      Local TF:TExtTextField = New TExtTextField
      TF.Gadget = CreateTextArea(X , Y , Width , 20 , Parent)
      SetGadgetFilter(TF.Gadget , TExtTextField.Filter)
      TF.ChangeonEnter = COE
      TF.Gadget.context = TF
      TExtTextField.Group.Addlast(TF.Gadget)
      Return TF
   End Function
   
   Function filter:Int(event:TEvent,context:Object)
      Select event.id
         Case EVENT_KEYDOWN
            If event.data=9 Then Return 0
            If event.data=13 Return 0
         Case EVENT_KEYCHAR
            If event.data = KEY_ENTER Then
               If TExtTextField(TGadget(Event.source).context).ChangeonEnter = True Then
                  Local SLink:TLink = TExtTextField.Group.FindLink(event.source)
               If SLink.NextLink() <> Null Then
                  Local TField:TGadget = TGadget(SLink.NextLink().Value() )
                  ActivateGadget(TField)
               Else
                  Local TField:TGadget = TGadget(TExtTextField.Group.FirstLink().Value() )
                  ActivateGadget(TField)
               EndIf
            EndIf
               Local MyEVent:TEvent = CreateEvent(EVENT_GADGETDONE , event.source , 13 , 0 , 0 , 0 , TextAreaText(TGadget(event.source) ) )
               EmitEvent MyEvent
               Return 0
            EndIf
            If event.data = KEY_TAB Then
               Local SLink:TLink = TExtTextField.Group.FindLink(event.source)
               If SLink.NextLink() <> Null Then
                  Local TField:TGadget = TGadget(SLink.NextLink().Value() )
                  ActivateGadget(TField)
               Else
                  Local TField:TGadget = TGadget(TExtTextField.Group.FirstLink().Value() )
                  ActivateGadget(TField)
               EndIf
               Local MyEVent:TEvent = CreateEvent(EVENT_GADGETLOSTFOCUS , event.source , 9 , 0 , 0 , 0 , "Tabbed")
               EmitEvent MyEvent
               Return 0
            EndIf
      End Select
      Return 1
   End Function
   


End Type

Local Main:TGadget = CreateWindow("Test" , 0 , 0 , 400 , 400)
Local TF:TExtTextField = TExtTextField.Create(40 , 40 , 200 , Main)
Local TF2:TExtTextField = TExtTextField.Create(40 , 80 , 200 , Main)



While True
   WaitEvent
   Print CurrentEvent.ToString()
   Select EventID()
      Case EVENT_WINDOWCLOSE
         End
   End Select
Wend