scaffolding for char callback

2024-10-17 01:20:48 +01:00
parent ed33cf97a4
commit ce23e50c8d
5 changed files with 26 additions and 0 deletions
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -19,4 +19,9 @@ struct
    _export "mltonFramebufferSizeCallback" public : (int * int -> unit) -> unit;
  val setFramebufferSizeCallback =
    _import "setFramebufferSizeCallback" public : window -> unit;
+
+  val exportCharCallback =
+    _export "mltonCharCallback" public : (Word32.word -> unit) -> unit;
+  val setCharCallback =
+    _import "setCharCallback" public : window -> unit;
 end