21 lines
546 B
Plaintext
21 lines
546 B
Plaintext
include pGUI.e
|
|
|
|
Ihandle dlg, lbl, btn, vbox
|
|
integer clicks = 0
|
|
|
|
function click_cb(Ihandle /*btn*/)
|
|
clicks += 1
|
|
IupSetStrAttribute(lbl,"TITLE","clicked %d times",{clicks})
|
|
return IUP_DEFAULT;
|
|
end function
|
|
|
|
IupOpen()
|
|
lbl = IupLabel("There have been no clicks yet")
|
|
btn = IupButton("Click me", Icallback("click_cb"))
|
|
vbox = IupVbox({lbl, IupHbox({IupFill(),btn,IupFill()})})
|
|
dlg = IupDialog(vbox,"MARGIN=10x10, GAP=10, RASTERSIZE=400x0")
|
|
IupSetAttribute(dlg, "TITLE", "Simple windowed application")
|
|
IupShow(dlg)
|
|
IupMainLoop()
|
|
IupClose()
|