code function that indicates which area, if any, was clicked

2024-07-30 19:04:36 +01:00
parent e97768b18a
commit b8ab605c90
7 changed files with 90 additions and 6 deletions
--- a/imperative-shell/input-callbacks.sml
+++ b/imperative-shell/input-callbacks.sml
@@ -1,7 +1,7 @@
 structure InputCallbacks =
 struct
  open CML
-  open Msg
+  open InputMessage

  fun mouseMoveCallback mailbox (x, y) =
    Mailbox.send (mailbox, (MOUSE_MOVE {x = x, y = y}))
--- a/imperative-shell/shell.sml
+++ b/imperative-shell/shell.sml
@@ -4,7 +4,7 @@ struct

  fun callbackListener mailbox =
    let
-      open Msg
+      open InputMessage
      val _ =
        case Mailbox.recv mailbox of
          MOUSE_MOVE {x, y} =>