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