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/message-types/input-msg.sml
+++ b/message-types/input-msg.sml
@@ -0,0 +1,15 @@
+signature INPUT_MESSAGE =
+sig
+  datatype t =
+    MOUSE_MOVE of {x: int, y: int}
+  | MOUSE_LEFT_CLICK
+  | MOUSE_LEFT_RELEASE
+end
+
+structure InputMessage :> INPUT_MESSAGE =
+struct
+  datatype t =
+    MOUSE_MOVE of {x: int, y: int}
+  | MOUSE_LEFT_CLICK
+  | MOUSE_LEFT_RELEASE
+end