refactoring and scaffolding

2024-07-31 12:00:07 +01:00
parent 94611eceee
commit 29793cccbe
9 changed files with 121 additions and 70 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -14,4 +14,18 @@ struct
        Mailbox.send (mailbox, MOUSE_LEFT_RELEASE)
    else
      ()
+
+  fun registerCallbacks (window, inputMailbox) =
+        let
+          val mouseMoveCallback = mouseMoveCallback inputMailbox
+          val _ = Input.exportMouseMoveCallback mouseMoveCallback
+          val _ = Input.setMouseMoveCallback window
+
+          val mouseClickCallback =
+            mouseClickCallback inputMailbox
+          val _ = Input.exportMouseClickCallback mouseClickCallback
+          val _ = Input.setMouseClickCallback window
+        in
+          ()
+        end
 end