Type TabberItem
   Field Gadget
   Field Tabber
   Field TabID
End Type


Hauptfenster = CreateWindow("Feja - Chat", 0, 0, 640, 480)
tabber = CreateTabber(5, 0, 640, 480, Hauptfenster)
AddGadgetItem(tabber, "1")
AddGadgetItem(tabber, "2")
AddGadgetItem(tabber, "3")
AddGadgetItem(tabber, "4")
AddGadgetItem(tabber, "5")

;
Dim Feja$(4,15)
 Feja$(0,1) = "123"
 Feja$(0,2) = CreateLabel("aa", 10,10, 180,20, tabber)
 Feja$(0,3) = CreateLabel("ab", 10,55, 180,20, tabber)
 Feja$(0,4) = CreateTextField (10,30, 180,20, tabber)
 Feja$(0,5) = CreateTextField (10,75, 180,20, tabber, 1)
 Feja$(0,6) = CreateButton ("ac", 50,110, 100,20, tabber, 1)
 Feja$(0,7) = ""
 Feja$(0,8) = ""
 Feja$(0,9) = ""
 Feja$(0,10) = ""
 Feja$(0,11) = ""
 Feja$(0,12) = ""
 Feja$(0,13) = ""
 Feja$(0,14) = ""
 Feja$(0,15) = ""
;
 Feja$(1,1) = "1234"
 Feja$(1,2) = CreateLabel("ba", 10,10, 180,20, tabber)
 Feja$(1,3) = CreateLabel("bb", 10,55, 180,20, tabber)
 Feja$(1,4) = CreateLabel("bc", 10,100, 180,20, tabber)
 Feja$(1,5) = CreateTextField (10,30, 180,20, tabber)
 Feja$(1,6) = CreateTextField (10,75, 180,20, tabber, 1)
 Feja$(1,7) = CreateTextField (10,120, 180,20, tabber)
 Feja$(1,8) = CreateButton ("bd", 50,150, 100,20, tabber, 1)
 Feja$(1,9) = ""
 Feja$(1,10) = ""
 Feja$(1,11) = ""
 Feja$(1,12) = ""
 Feja$(1,13) = ""
 Feja$(1,14) = ""
 Feja$(1,15) = ""
;
 Feja$(2,1) = "12345"   
 Feja$(2,2) = CreateLabel("ca", 10,10, 180,20, tabber)
 Feja$(2,3) = CreateLabel("cb", 10,55, 180,20, tabber)
 Feja$(2,4) = CreateLabel("cc", 10,100, 180,20, tabber)
 Feja$(2,5) = CreateLabel("cd", 155,100, 180,20, tabber)
 Feja$(2,6) = CreateLabel("ce", 10,145, 180,20, tabber)
 Feja$(2,7) = CreateLabel("cf", 155,145, 180,20, tabber)
 Feja$(2,8) = CreateLabel("da", 10, 185, 180,40, tabber)
 Feja$(2,9) = CreateTextField (10,30, 130,20, tabber)
 Feja$(2,10) = CreateTextField (10,75, 130,20, tabber)
 Feja$(2,11) = CreateTextField (10,120, 130,20, tabber)
 Feja$(2,12) = CreateTextField (155,120, 130,20, tabber)
 Feja$(2,13) = CreateTextField (10,165, 130,20, tabber)
 Feja$(2,14) = CreateTextField (155,165, 130,20, tabber)
 Feja$(2,15) = CreateButton ("db", 100,230, 100,20, tabber, 1)
;
 Feja$(3,1) = "123456"
 Feja$(3,2) = ""
 Feja$(3,3) = ""
 Feja$(3,4) = ""
 Feja$(3,5) = ""
 Feja$(3,6) = ""
 Feja$(3,7) = ""
 Feja$(3,8) = ""
 Feja$(3,9) = ""
 Feja$(3,10) = ""
 Feja$(3,11) = ""
 Feja$(3,12) = ""
 Feja$(3,13) = ""
 Feja$(3,14) = ""
 Feja$(3,15) = ""
;
 Feja$(4,1) = "1234567"
 Feja$(4,2) = ""
 Feja$(4,3) = ""
 Feja$(4,4) = ""
 Feja$(4,5) = ""
 Feja$(4,6) = ""
 Feja$(4,7) = ""
 Feja$(4,8) = ""
 Feja$(4,9) = ""
 Feja$(4,10) = ""
 Feja$(4,11) = ""
 Feja$(4,12) = ""
 Feja$(4,13) = ""
 Feja$(4,14) = ""
 Feja$(4,15) = ""

addtabgadget(tabber, 0, Feja$(0,1))
addtabgadget(tabber, 0, Feja$(0,2))
addtabgadget(tabber, 0, Feja$(0,3))
addtabgadget(tabber, 0, Feja$(0,4))
addtabgadget(tabber, 0, Feja$(0,5))
addtabgadget(tabber, 0, Feja$(0,6))
addtabgadget(tabber, 0, Feja$(0,7))
addtabgadget(tabber, 0, Feja$(0,8))
addtabgadget(tabber, 0, Feja$(0,9))
addtabgadget(tabber, 0, Feja$(0,10))
addtabgadget(tabber, 0, Feja$(0,11))
addtabgadget(tabber, 0, Feja$(0,12))
addtabgadget(tabber, 0, Feja$(0,13))
addtabgadget(tabber, 0, Feja$(0,14))
addtabgadget(tabber, 0, Feja$(0,15))
;
addtabgadget(tabber, 1, Feja$(1,1))
addtabgadget(tabber, 1, Feja$(1,2))
addtabgadget(tabber, 1, Feja$(1,3))
addtabgadget(tabber, 1, Feja$(1,4))
addtabgadget(tabber, 1, Feja$(1,5))
addtabgadget(tabber, 1, Feja$(1,6))
addtabgadget(tabber, 1, Feja$(1,7))
addtabgadget(tabber, 1, Feja$(1,8))
;
addtabgadget(tabber, 2, Feja$(2,1))
addtabgadget(tabber, 2, Feja$(2,2))
addtabgadget(tabber, 2, Feja$(2,3))
addtabgadget(tabber, 2, Feja$(2,4))
addtabgadget(tabber, 2, Feja$(2,5))
addtabgadget(tabber, 2, Feja$(2,6))
addtabgadget(tabber, 2, Feja$(2,7))
addtabgadget(tabber, 2, Feja$(2,8))
addtabgadget(tabber, 2, Feja$(2,9))
addtabgadget(tabber, 2, Feja$(2,10))
addtabgadget(tabber, 2, Feja$(2,11))
addtabgadget(tabber, 2, Feja$(2,12))
addtabgadget(tabber, 2, Feja$(2,13))
addtabgadget(tabber, 2, Feja$(2,14))
addtabgadget(tabber, 2, Feja$(2,15))

;


Notify "!"

Repeat
   
   UpDateTabber()
   ;Schalter()

Test = EventSource()
 Select Test
  Case Feja$(0,6)
   Notify "1"
   ClearGadgetItems tabber
   AddGadgetItem(tabber, "a")
   AddGadgetItem(tabber, "b")
   AddGadgetItem(tabber, "c")
   AddGadgetItem(tabber, "d")
  Case Feja$(1,8)
   Notify "2"
  Case Feja$(2,15)
   Notify "3"
 End Select

Until WaitEvent() = $803
;Funktionen
Function AddTabGadget(tabber, tabpage, gadget)
   Local tabitem.TabberItem = New TabberItem
   tabitem\Gadget = gadget
   tabitem\Tabber = tabber
   tabitem\TabId = tabpage
End Function

Function UpdateTabber()
   Local tabitem.TabberItem
   For tabitem = Each TabberItem
      If SelectedGadgetItem(tabitem\Tabber) = tabitem\TabID Then
         ShowGadget(tabitem\Gadget)
       Else
         HideGadget(tabitem\Gadget)
      EndIf
   Next
End Function

Feja$(0,2) = CreateLabel("aa", 10,10, 180,20, tabber)
Feja$(0,3) = CreateLabel("ab", 10,55, 180,20, tabber)
Feja$(0,4) = CreateTextField (10,30, 180,20, tabber)
Feja$(0,5) = CreateTextField (10,75, 180,20, tabber, 1)
Feja$(0,6) = CreateButton ("ac", 50,110, 100,20, tabber, 1)

Feja$(0,1) = "123"
Feja$(0,7) = ""
Feja$(0,8) = ""
Feja$(0,9) = ""
Feja$(0,10) = ""
Feja$(0,11) = ""
Feja$(0,12) = ""
Feja$(0,13) = ""
Feja$(0,14) = ""
Feja$(0,15) = ""