Plot coordinate pairs: Difference between revisions
Content added Content deleted
| Line 1,903: | Line 1,903: | ||
cdCanvasSetBackground(cddbuffer, CD_WHITE) |
cdCanvasSetBackground(cddbuffer, CD_WHITE) |
||
return IUP_DEFAULT |
return IUP_DEFAULT |
||
end function |
|||
function esc_close(Ihandle /*ih*/, atom c) |
|||
if c=K_ESC then return IUP_CLOSE end if |
|||
return IUP_CONTINUE |
|||
end function |
end function |
||
| Line 1,919: | Line 1,914: | ||
dlg = IupDialog(canvas) |
dlg = IupDialog(canvas) |
||
IupSetAttribute(dlg, "TITLE", "Plot coordinate pairs") |
IupSetAttribute(dlg, "TITLE", "Plot coordinate pairs") |
||
IupCloseOnEscape(dlg) |
|||
IupSetCallback(dlg, "K_ANY", Icallback("esc_close")) |
|||
IupSetCallback(canvas, "ACTION", Icallback("redraw_cb")) |
IupSetCallback(canvas, "ACTION", Icallback("redraw_cb")) |
||