Window creation: Difference between revisions

m
Line 1,704:
 
=={{header|Phix}}==
The{{libheader|pGUI}} following is included in the distro as demo\rosetta\Window_creation.exw, and should work(works on Windows/Linux, 32/64-bit.)
<lang Phix>include pGUI.e--
{{libheader|pGUI}}
-- demo\rosetta\Window_creation.exw
<lang Phix>include pGUI.e
--
include pGUI.e
 
function esc_close(Ihandle /*ih*/, atom c)
Line 1,712 ⟶ 1,714:
end function
 
IupOpen("../pGUI/")
Ihandle dlg = IupDialog(IupVbox({IupLabel("hello")},"MARGIN=200x200"))
IupSetAttribute(dlg,"TITLE","Hello")
IupSetCallback(dlg, "K_ANY", Icallback("esc_close"))
IupShow(dlg)
IupMainLoop()
IupClose()</lang>
 
=={{header|PicoLisp}}==
7,820

edits