GUI component interaction: Difference between revisions

m
Line 2,256:
 
=={{header|Phix}}==
{{libheader|Phix/pGUI}}
<lang Phix>include pGUI.e
 
Line 2,277:
end if
return IUP_CONTINUE
end function
 
function esc_close(Ihandle /*ih*/, atom c)
return iff(c=K_ESC?IUP_CLOSE:IUP_CONTINUE)
end function
 
Line 2,290 ⟶ 2,286:
vbx = IupVbox({txt,hbx},"MARGIN=40x20")
dlg = IupDialog(vbx)
IupCloseOnEscape(dlg)
IupSetCallback(dlg, "K_ANY", Icallback("esc_close"))
IupShow(dlg)
IupMainLoop()
7,805

edits