add callbacks for mouse movement and mouse clicking

2024-07-30 17:10:48 +01:00
parent 75b82fd888
commit e97768b18a
12 changed files with 102 additions and 49 deletions
--- a/functional-core/app-update.sml
+++ b/functional-core/app-update.sml
@@ -0,0 +1 @@
+structure AppUpdate = struct end
--- a/functional-core/msg.sml
+++ b/functional-core/msg.sml
@@ -0,0 +1,15 @@
+signature MSG =
+sig
+  datatype t =
+    MOUSE_MOVE of {x: int, y: int}
+  | MOUSE_LEFT_CLICK
+  | MOUSE_LEFT_RELEASE
+end
+
+structure Msg :> MSG =
+struct
+  datatype t =
+    MOUSE_MOVE of {x: int, y: int}
+  | MOUSE_LEFT_CLICK
+  | MOUSE_LEFT_RELEASE
+end