a little additional scaffolding for normal mode

2025-08-31 02:41:37 +01:00
parent 3b6dff3081
commit 542da2229c
8 changed files with 50 additions and 5 deletions
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -33,4 +33,7 @@ struct
  val (KEY_ESC, _) =
    _symbol "KEY_ESC" public : ( unit -> int ) * ( int -> unit );
  val KEY_ESC = KEY_ESC ()
+  val (KEY_ENTER, _) =
+    _symbol "KEY_ENTER" public : ( unit -> int ) * ( int -> unit );
+  val KEY_ENTER = KEY_ENTER ()
 end