Win1 = CreateWindow("Testwindow",10, 10, 320, 240, 0, WINDOW_TITLEBAR)
Tab1 = CreateTabber(0, 0, ClientWidth(Win1), ClientHeight(Win1), Win1)

AddGadgetItem Tab1, "Test 1"
AddGadgetItem Tab1, "Test 2"

DisableGadgetItem Tab1, 1

' ==================================================================================
' Main Loop

While WaitEvent()


   ' ===========================================
   ' Get Events
   
   EID      = EventID()
   ES      = EventSource()
   ED      = EventData()
   EE      = EventExtra()


   ' ===========================================
   ' Event Management

   Select EID
   
      Case EVENT_WINDOWCLOSE
         End
      
   End Select
   

Wend