progress towards supporting arrow input

2024-09-20 12:33:31 +01:00
parent 2d817cc998
commit 9ffc19ef24
4 changed files with 236 additions and 58 deletions
--- a/message-types/input-msg.sml
+++ b/message-types/input-msg.sml
@@ -11,6 +11,10 @@ sig
  | KEY_CTRL_S
  | KEY_CTRL_L
  | KEY_CTRL_E
+  | ARROW_UP
+  | ARROW_LEFT
+  | ARROW_RIGHT
+  | ARROW_DOWN
  | USE_TRIANGLES of AppType.triangle list
  | TRIANGLES_LOAD_ERROR
 end
@@ -28,6 +32,10 @@ struct
  | KEY_CTRL_S
  | KEY_CTRL_L
  | KEY_CTRL_E
+  | ARROW_UP
+  | ARROW_LEFT
+  | ARROW_RIGHT
+  | ARROW_DOWN
  | USE_TRIANGLES of AppType.triangle list
  | TRIANGLES_LOAD_ERROR
 end