User input/Graphical: Difference between revisions

m
m (Phix/pGUI)
Line 2,382:
end if
return IUP_CLOSE
end function
 
function esc_close(Ihandle /*ih*/, atom c)
return iff(c=K_ESC?IUP_CLOSE:IUP_CONTINUE)
end function
 
Line 2,401 ⟶ 2,397:
"GAP=5,MARGIN=5x5"))
IupSetAttribute(dlg,"TITLE","User Input/Graphical")
IupCloseOnEscape(dlg)
IupSetCallback(dlg, "K_ANY", Icallback("esc_close"))
IupDestroy(IupNormalizer({OK,Cancel},"NORMALIZE=BOTH"))
IupShow(dlg)
7,796

edits