Colour bars/Display: Difference between revisions

m
m (Phix/pGUI)
Line 1,230:
cdKillCanvas(cdcanvas)
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
 
Line 1,249 ⟶ 1,244:
IupSetAttribute(dlg, "TITLE", "Colour bars")
IupSetCallback(canvas, "ACTION", Icallback("redraw_cb"))
IupCloseOnEscape(dlg)
IupSetCallback(dlg, "K_ANY", Icallback("esc_close"))
 
IupMap(dlg)
7,820

edits