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