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);
  }