a bit of scaffolding to prepare for adding resize callback + message types

2024-10-06 08:18:24 +01:00
parent c5efc4640f
commit 6766fd1485
7 changed files with 19 additions and 5 deletions
--- a/ffi/glfw-input.sml
+++ b/ffi/glfw-input.sml
@@ -14,4 +14,7 @@ struct
  val (RELEASE, _) =
    _symbol "RELEASE" public : ( unit -> int ) * ( int -> unit );
  val RELEASE = RELEASE ()
+
+  val exportFramebufferSizeCallback =
+    _export "mltonFramebufferSizeCallback" public : (int * int -> unit) -> unit;
 end