RosettaCodeData/Task/Keyboard-input-Keypress-check/Mathematica/keyboard-input-keypress-che...

5 lines
124 B
Plaintext

i = {};
EventHandler[Panel[Dynamic[i],
ImageSize -> {300, 300}], {"KeyDown" :>
AppendTo[i, CurrentValue["EventKey"]]}]