aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Window-creation/Phix/window-creation.phix
View file

@ -1,16 +1,10 @@
--
-- demo\rosetta\Window_creation.exw
--
include pGUI.e
function esc_close(Ihandle /*ih*/, atom c)
return iff(c=K_ESC?IUP_CLOSE:IUP_CONTINUE)
end function
IupOpen()
Ihandle dlg = IupDialog(IupVbox({IupLabel("hello")},"MARGIN=200x200"))
IupSetAttribute(dlg,"TITLE","Hello")
IupSetCallback(dlg, "K_ANY", Icallback("esc_close"))
IupCloseOnEscape(dlg)
IupShow(dlg)
IupMainLoop()
IupClose()