MaxGui: Clear Listbox still broken? (win32)

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.

Grisu

ModuleInfo "History: 1.16 Release"
ModuleInfo "History: fixed Win32ListBox::clear() to also remove tooltips"

I still get the same bug with the tooltips explained here...
http://www.blitzbasic.com/Community/posts.php?topic=60517

Strict 

Local window:TGadget
Local button:TGadget
Global Listbox:TGadget

Local combobox:TGadget
Local dfa_mode:Int = 0

Const MAXKIDSFOLGEN=29
Const MAXFOLGEN=130

window=CreateWindow("My Window",30,20,200,200)
button=CreateButton("Change Listbox",4,100,100,24,window,BUTTON_OK)

Listbox=CreateListBox(4,4,120,80,window)
Create_Listbox(dfa_mode)


While WaitEvent()
	Select EventID()
		Case EVENT_GADGETACTION
			Print "eventdata="+EventData()
		Case EVENT_WINDOWCLOSE
			End
	End Select

	Select EventSource() 		 
		Case Button 
          dfa_mode=Not dfa_mode
          Create_Listbox(dfa_mode)
	End Select
Wend


Function Create_Listbox(cfg_dfamode:Int)
' Create a fresh Listbox according to dfamode

ClearGadgetItems Listbox ' clean all mess up

Select cfg_dfamode
Case 0
   For Local i:Int=0 To MAXFOLGEN-1
     AddGadgetItem ListBox, "MODE 1 - Item "+i, GADGETITEM_NORMAL, 0, "MODE1 Helptext "+i
   Next 

Case 1
   For Local j:Int=0 To MAXKIDSFOLGEN-1
     AddGadgetItem ListBox, "MODE 2 - Item "+j, GADGETITEM_NORMAL, 0, "MODE2 Helptext "+j
   Next 
End Select 

End Function