Greyscale bars/Display: Difference between revisions
m
→{{header|Phix}}
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 1,181:
=={{header|Phix}}==
Resizeable. Use of nx avoids rounding/misalignment errors
{{libheader|Phix/pGUI}}
<lang Phix>-- demo\rosetta\Greyscale_bars.exw
include pGUI.e
Line 1,220 ⟶ 1,218:
cdKillCanvas(cdcanvas)
return IUP_DEFAULT
end function
Line 1,239 ⟶ 1,232:
IupSetAttribute(dlg, "TITLE", "Greyscale bars")
IupSetCallback(canvas, "ACTION", Icallback("redraw_cb"))
IupCloseOnEscape(dlg)
IupMap(dlg)
|