RosettaCodeData/Task/Keyboard-input-Keypress-check/Mathematica/keyboard-input-keypress-check.math
2023-07-01 13:44:08 -04:00

4 lines
124 B
Text

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