June 2018 Update

Task/Simple-windowed-application/Phix/simple-windowed-application-1.phix

@@ -0,0 +1,20 @@
+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()