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/export.h
+++ b/ffi/export.h
@@ -157,6 +157,7 @@ typedef Pointer Objptr;
 extern "C" {
 #endif

+MLLIB_PUBLIC(void mltonFramebufferSizeCallback (Int32 x0, Int32 x1);)

 #undef MLLIB_PRIVATE
 #undef MLLIB_PUBLIC
--- 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