Adding Gadgets to Tabs ?

SuperStrict


SetGraphicsDriver GLGraphicsDriver()

Local Window:TGadget
Local Wintab:TGadget
Local Tabber:Tgadget[6,6]
Local button:TGadget[5]
Local poll:Int


Function Create_Main_Window:Tgadget(_Name$)
	Local Temp:Tgadget=Desktop()
	Local Win:Tgadget=CreateWindow(_Name$,0,0,temp.clientwidth(),Temp.clientheight(),0,WINDOW_TITLEBAR|WINDOW_STATUS|WINDOW_MENU)
	Return win
End Function

Window=Create_Main_Window("Ducky RPG Creator")
Wintab=CreateTabber(10,10,ClientWidth(window)-20,ClientHeight(window)-20,window)
AddGadgetItem(WinTab,"Map Creation",GADGETITEM_NORMAL,-1,"")
AddGadgetItem(WinTab,"TileSets",GADGETITEM_NORMAL,-1,"")
button[0]=CreateButton("Push Button",10,10,140,24,wintab,BUTTON_PUSH)

SetGadgetLayout button[0],1,1,1,1

While True
	Poll=PollEvent()
	
	If Poll Then 
		Select Poll
				Case EVENT_WINDOWCLOSE
					End

		End Select
	EndIf
Wend

Local Win:TGADGET
Local Tab1:TGadget
Local TabL1:Tgadget[3]
Local Tab2:TGadget[3]
Local Tabl2:Tgadget[3,3]
Local Current:Int=0
Local Current2:Int=0

Win=CreateWindow("TEST",0,0,400,400)
Tab1=CreateTabber(10,10,ClientWidth(Win)-20,ClientHeight(Win)-20,Win,1)
AddGadgetItem (Tab1,"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab1,"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab1,"Tab3",GADGETITEM_NORMAL,0,"")

TabL1[0]=CreateTab(Tab1)
TabL1[1]=CreateTab(Tab1)
TabL1[2]=CreateTab(Tab1)

Tab2[0]=CreateTabber(10,10,ClientWidth(TabL1[0])-20,ClientHeight(TabL1[0])-20,TabL1[0],1)
AddGadgetItem (Tab2[0],"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[0],"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[0],"Tab3",GADGETITEM_NORMAL,0,"")
Tab2[1]=CreateTabber(10,10,ClientWidth(TabL1[1])-20,ClientHeight(TabL1[1])-20,TabL1[1],1)
AddGadgetItem (Tab2[1],"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[1],"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[1],"Tab3",GADGETITEM_NORMAL,0,"")
Tab2[2]=CreateTabber(10,10,ClientWidth(TabL1[2])-20,ClientHeight(TabL1[2])-20,TabL1[2],1)
AddGadgetItem (Tab2[2],"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[2],"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[2],"Tab3",GADGETITEM_NORMAL,0,"")

TabL2[0,0]=CreateTab(Tab2[0])
TabL2[0,1]=CreateTab(Tab2[0])
TabL2[0,2]=CreateTab(Tab2[0])
TabL2[1,0]=CreateTab(Tab2[1])
TabL2[1,1]=CreateTab(Tab2[1])
TabL2[1,2]=CreateTab(Tab2[1])
TabL2[2,0]=CreateTab(Tab2[2])
TabL2[2,1]=CreateTab(Tab2[2])
TabL2[2,2]=CreateTab(Tab2[2])


Tabl1[0].SetColor(20,50,70)
Tabl1[1].SetColor(120,50,70)
Tabl1[2].SetColor(20,50,170)
Tabl2[0,0].SetColor(240,50,70)
Tabl2[0,1].SetColor(140,50,70)
Tabl2[0,2].SetColor(120,50,170)
Tabl2[1,0].SetColor(290,50,70)
Tabl2[1,1].SetColor(220,50,70)
Tabl2[1,2].SetColor(170,50,170)
Tabl2[2,0].SetColor(290,80,70)
Tabl2[2,1].SetColor(220,20,70)
Tabl2[2,2].SetColor(170,140,170)

Function CreateTab:TGADGET(_Par:Tgadget)
	Local Temp:TGADGET=CreatePanel(5,5,ClientWidth(_Par)-10,ClientHeight(_Par)-10,_Par,PANEL_BORDER)
		HideGadget Temp
	Return Temp
End Function

ShowGadget Tabl1[0]
ShowGadget Tabl2[0,0]

While True
    Poll=PollEvent()
	
	
		If poll Then
		Print CurrentEvent.ToString()
		Select poll
		
	
			Case EVENT_WINDOWCLOSE
					End
					
			Case EVENT_GADGETACTION
				If EventSource()=Tab1
					HideGadget Tabl1[Current]
					Current=EventData()
					ShowGadget Tabl1[Current]
									
				ElseIf EventSource()=Tab2[0]
					HideGadget Tabl2[Current,Current2]
					Current2=EventData()
					ShowGadget Tabl2[Current,Current2]
			
				
				ElseIf EventSource()=Tab2[1]
					HideGadget Tabl2[Current,Current2]
					Current2=EventData()
					ShowGadget Tabl2[Current,Current2]
			
				
				ElseIf EventSource()=Tab2[2]
					HideGadget Tabl2[Current,Current2]
					Current2=EventData()
					ShowGadget Tabl2[Current,Current2]
				EndIf


				



		End Select
		EndIf
Wend