Forest fire: Difference between revisions
m
→{{header|Phix}}
Thundergnat (talk | contribs) m (Fix Perl6 -> Raku links and comments) |
|||
Line 5,712:
=={{header|Phix}}==
{{libheader|Phix/pGUI}}
<lang Phix>-- demo\rosetta\Forest_fire.exw
include pGUI.e
Line 5,772 ⟶ 5,770:
cddbuffer = cdCreateCanvas(CD_DBUFFER, cdcanvas)
return IUP_DEFAULT
end function
Line 5,794 ⟶ 5,787:
IupSetAttribute(dlg, "TITLE", TITLE)
IupSetAttribute(dlg, "MAXSIZE", "800x400") -- (too slow any bigger)
IupCloseOnEscape(dlg)
IupSetCallback(canvas, "ACTION", Icallback("redraw_cb"))
| |||