SDL: bring back continuous resize patch (#1077)

revery-ui · May 29, 2021 · 234b461 · 234b461
1 parent d737fcd
commit 234b461
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/packages/reason-sdl2/src/sdl2.re b/packages/reason-sdl2/src/sdl2.re
@@ -905,6 +905,7 @@ let _nativeLoop = renderFn => {
 };
 
 let renderLoop = (renderFunction: renderFunction) => {
+  Callback.register("__sdl2_caml_resize__", renderFunction);
   switch (Sys.backend_type) {
   | Native => _nativeLoop(renderFunction)
   | Bytecode => _nativeLoop(renderFunction)

diff --git a/packages/reason-sdl2/src/sdl2_wrapper.cpp b/packages/reason-sdl2/src/sdl2_wrapper.cpp
@@ -1553,6 +1553,24 @@ extern "C" {
         CAMLreturn(Val_unit);
     }
 
+    int resdl_eventWatcher(void *data, SDL_Event *event) {
+        if (event->type == SDL_WINDOWEVENT &&
+                event->window.event == SDL_WINDOWEVENT_RESIZED) {
+            value args[] = {Val_unit};
+
+            static const value *resizeCallback = NULL;
+            if (resizeCallback == NULL) {
+                resizeCallback = caml_named_value("__sdl2_caml_resize__");
+            }
+
+            if (resizeCallback) {
+                caml_callbackN(*resizeCallback, 1, args);
+            }
+        }
+
+        return 0;
+    }
+
     CAMLprim value resdl_SDL_CreateWindow(value vName, value vX, value vY,
                                           value vWidth, value vHeight, value vAcceleration) {
         CAMLparam5(vName, vX, vY, vWidth, vHeight);
@@ -1627,6 +1645,8 @@ extern "C" {
                             SDL_GetError());
         }
 
+        SDL_AddEventWatch(resdl_eventWatcher, NULL);
+
         vWindow = resdl_wrapPointer(win);
         CAMLreturn(vWindow);
     }