Adding Gadgets to Tabs ?

BlitzMax Forums/BlitzMax Programming/Adding Gadgets to Tabs ?

is it possible to add items to tabs directly so it will show all button ect added to the activated tab

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