Import dom
Function Main:Int()
New MyApp
End Function
Class MyApp Extends EventListener
Method New()
document.write("<p id='bill'>Choose a Country</p><b>")
document.write("<select id='CountrySelect'>")
document.write("<option id=~qUK~q>UK</option>")
document.write("<option id=~qUSA~q>USA</option>")
document.write("</select>")
document.write("<select id='TimeZoneSelect'>")
document.write("</select>")
Local h:HTMLElement=HTMLElement(document.getElementById("bill"))
h.innerHTML="Choose a Country"
Local p:ParagraphListener=New ParagraphListener
h.addEventListener("click",p)
Local c:CountryChangeListener=New CountryChangeListener
Local sel:=HTMLSelectElement(document.getElementById("CountrySelect"))
sel.addEventListener("change",c)
End Method
End Class
Class CountryChangeListener Extends EventListener
Method handleEvent( event:Event )
Local tzsel:HTMLSelectElement=HTMLSelectElement(document.getElementById("TimeZoneSelect"))
Local csel:HTMLSelectElement =HTMLSelectElement(event.target)
Local h:HTMLElement=HTMLElement(document.getElementById("bill"))
h.innerHTML=csel.selectedOptions.length
Local selected$
Local i:HTMLOptionElement= HTMLOptionElement(csel.item(csel.selectedIndex))
selected=i.value
h.innerHTML="changed"
Local o:HTMLOptionElement=New HTMLOptionElement()
o.label="label"
o.value="offset"
o.text="desc"
tzsel.add(o)
End Method
End Class
Class ParagraphListener Extends EventListener
Method handleEvent( event:Event )
Local h:HTMLElement=HTMLElement(document.getElementById("bill"))
h.innerHTML="argh"
End Method
End Class
it seems I can only add options to a select dialog by writing the html right at the beginning of the program it doesnt seem to work afterwards
|