##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-06/02:07-0400
##+
#
# y.icn, demonstrate the &y mouse position keyword
#
link enqueue, evmux
procedure main()
    window := open("mouse position", "g", "size=20,20", "canvas=hidden")
    Enqueue(window, &lpress, 11, 14, "", 2)
    Enqueue(window, &lrelease, 12, 15, "", 3)
    w := Active()
    write(image(w))
    e := Event(w, 1)
    write("event at mouse position (", &x, ",", &y, ")")
    e := Event(w, 1)
    write("event at mouse position (", &x, ",", &y, ")")
    close(window)
end