amend order of Glfw.swapBuffers and Glfw.pollEvents in imperative shell (previous order polled events before swapping buffers which is not the intended order)

2024-08-14 02:00:07 +01:00
parent dd9ecfcbe5
commit 575b8d009e
2 changed files with 1 additions and 1 deletions
--- a/BIN
+++ b/BIN
--- a/imperative-shell/event-loop.sml
+++ b/imperative-shell/event-loop.sml
@@ -39,8 +39,8 @@ struct
              AppDraw.drawTriangles (triangleDrawObject, triangleDrawLength)
            val _ = AppDraw.drawButton (buttonDrawObject, buttonDrawLength)

-            val _ = Glfw.pollEvents ()
            val _ = Glfw.swapBuffers window
+            val _ = Glfw.pollEvents ()
          in
            draw
              ( drawMailbox