Next gadget when tab key is pressed?

BlitzMax Forums/MaxGUI Module/Next gadget when tab key is pressed?

JoshK

(Posted 2009) [#1]

Is there any way to override the default handling of this? My color edit gadget uses three spinner gadgets and it would be nice to be able to tab between them.

klepto2

(Posted 2009) [#2]

Use SetGadgetSensitivity on the window.

' createtabber.bmx

Import MaxGui.Drivers

Strict 

Local window:TGadget
Local tabber:TGadget
Local document:TGadget[3]
Local currentdocument:TGadget

' CreateDocument creates a hidden panel that fills entire tabber client area 

Function CreateDocument:TGadget(tabber:TGadget)
	Local	panel:TGadget
	panel=CreatePanel(0,0,ClientWidth(tabber),ClientHeight(tabber),tabber)
	SetGadgetLayout panel,1,1,1,1
	HideGadget panel
	Return panel
End Function

' create a default window with a tabber gadget that fills entire client area

window=CreateWindow("My Window",30,20,400,300)
SetGadgetSensitivity(window , SENSITIZE_KEYS)


tabber=CreateTabber(0,0,ClientWidth(window),ClientHeight(window),window)
SetGadgetLayout tabber,1,1,1,1 

' add three items and corresponding document panels to the tabber

AddGadgetItem tabber,"Document 0",False,-1,""
AddGadgetItem tabber,"Document 1",False,-1,"Tabber Tip 1"
AddGadgetItem tabber,"Document 2",False,-1,"tips 4 2"

document[0]=CreateDocument(tabber)
document[1]=CreateDocument(tabber)
document[2]=CreateDocument(tabber)

SetPanelColor document[0],255,200,200
SetPanelColor document[1],200,255,200
SetPanelColor document[2],200,200,255

' our documents start off hidden so make first one current and show

currentdocument=document[0]
ShowGadget currentdocument

' standard message loop with special tabber EVENT_GADGETACTION and EVENT_GADGETMENU handling
Local activeindex:Int = 0

While WaitEvent()
	Print CurrentEvent.ToString()
	Select EventID()
		Case EVENT_GADGETACTION
			If EventSource()=tabber
				HideGadget currentdocument
				currentdocument = document[EventData()]
				activeindex:Int = EventData()
				ShowGadget currentdocument
			EndIf
		Case EVENT_GADGETMENU
			If EventSource()=tabber
				Notify "You right clicked the tab with index " + EventData() + "!"
			EndIf
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_KEYUP
			If EventData() = 9 Then
				HideGadget currentDocument
				activeindex = (activeindex+1) Mod document.length
				currentdocument = document[activeindex]
				SelectGadgetItem(tabber,activeindex)
				ShowGadget currentdocument
			End if
	End Select
Wend

JoshK

(Posted 2009) [#3]

Nice thinking, but tab key presses don't get run through a textfield's gadget filter.