##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: October 2016
# Modified: 2016-10-27/10:50-0400
##+
#
# interval.icn, demonstrate the &interval event timing
#
link enqueue, evmux
procedure main()
    window := open("interval", "g", "size=20,20", "canvas=hidden")

    # enqueue a press, interval 2ms
    Enqueue(window, &lpress, 11, 14, "", 2)
    # enqueue a release, interval 3ms
    Enqueue(window, &lrelease, 12, 15, "", 3)

    w := Active()
    write(image(w))

    e := Event(w, 1)
    write("event interval ", &interval, " ms")
    e := Event(w, 1)
    write("event interval ", &interval, " ms")
    close(window)
end