Latest win32maxgui beta

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Suco-X

Hi Skidracer
Listbox EventExtra() bug is still available. Here is a small sample code.

Strict

Import axe.win32maxgui

Local window:TGadget
Local listbox:TGadget

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

Const ETIP$="Great for lovers of rain, mushy peas and stomping beats.~r~nNew line..."

listbox=CreateListBox(4,4,200,200,window)

Local Names:String[] = ["Hans", "Meiser", "Berta", "Felix"]

For Local Str:String = EachIn Names
	AddGadgetItem(Listbox, StripDir(Str), 0, -1, Str, Str)
Next 


While WaitEvent()
	Print CurrentEvent.ToString()
	If EventSource()=listbox
		Print "SelectedGadgetItem()="+SelectedGadgetItem(listbox)
		If EventData()<>SelectedGadgetItem(listbox) Print "error with skidracer"
	EndIf
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend

As you can see, there is definitely an Eventextra problem.
Thank you for fixing.