##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: November 2016
# Modified: 2016-11-10/22:43-0500
##+
#
# FreeColor.icn, demonstrate freeing created colours
#
procedure main()
    window := open("FreeColor", "g", "size=110,24", "canvas=hidden")
    if c := NewColor(window, "40000,50000,60000") then {
        Fg(window, c)
        write(window, Fg(window))
    }
    else {
        Fg(window, "black")
        write(window, "no mutable colours")
    }

    WSync(window)
    WriteImage(window, "../images/FreeColor.png")
    FreeColor(\c)
    close(window)
end