Using Listbox example

	;Simple demonstrates using a few listbox functions.
	;Status line shows the selected item from the listbox.
	
	Const PROGRAM_EXIT = $803
	Const LIST_INDEX_SELECTED = $401
	
	font=LoadFont("arial",16)

	whd=CreateWindow("Listbox demo",0,300,400,200,0,15)
	
	
	lst=CreateListBox(10,10,200,80,whd)
	
	AddGadgetItem lst,"Actinium",True
	AddGadgetItem lst,"Plutonium",True
	AddGadgetItem lst,"Carbon-13",True
	AddGadgetItem lst,"Neon",True
	
	SetGadgetFont lst,font
	
	Repeat 
		id=WaitEvent()
		If id = PROGRAM_EXIT Then Exit
		
		If id = LIST_INDEX_SELECTED Then
			t$=GadgetItemText(lst,SelectedGadgetItem(lst))
			statusLineText(whd,t$)
		End If
	Forever
	
	End
	
	Function statusLineText(winHandle,s$)
		SetStatusText winHandle,s$
	End Function