(phixonline)-->
with javascript_semantics
include pGUI.e
include mpfr.e
Ihandln dlg, lbl
mpz i = mpz_init(0)
function increment()
mpz_add_ui(i,i,1)
IupSetStrAttribute(lbl,"TITLE",mpz_get_str(i))
return IUP_DEFAULT
end function
IupOpen()
lbl = IupLabel("","PADDING=10x10,EXPAND=YES")
dlg = IupDialog(lbl, "TITLE=Integers,SIZE=160x50")
IupShow(dlg)
IupSetGlobalFunction("IDLE_ACTION",Icallback("increment"))
if platform()!=JS then
IupMainLoop()
dlg = IupDestroy(dlg)
IupClose()
end if