Compare sorting algorithms' performance: Difference between revisions

Content added Content deleted
Line 2,022: Line 2,022:
plot = plots[tabidx]
plot = plots[tabidx]
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 2,060: Line 2,055:
IupSetAttributes(dlg, "RASTERSIZE=%dx%d", {640, 480})
IupSetAttributes(dlg, "RASTERSIZE=%dx%d", {640, 480})
IupSetAttribute(dlg, "TITLE", "Compare sorting algorithms")
IupSetAttribute(dlg, "TITLE", "Compare sorting algorithms")
IupCloseOnEscape(dlg)
IupSetCallback(dlg, "K_ANY", Icallback("esc_close"))
IupShow(dlg)
IupShow(dlg)
IupSetInt(tabs, "VALUEPOS", tabidx-1)
IupSetInt(tabs, "VALUEPOS", tabidx-1)