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/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} =>