scaffolding in preparation for implementing undo

2024-08-08 06:34:40 +01:00
parent a53c5e1ce3
commit 5c7c61586a
10 changed files with 53 additions and 10 deletions
--- a/functional-core/app-update.sml
+++ b/functional-core/app-update.sml
@@ -103,4 +103,10 @@ struct
    | MOUSE_LEFT_CLICK => mouseLeftClick (model, mouseX, mouseY)
    | RESIZE_WINDOW {width, height} =>
        resizeWindow (model, mouseX, mouseY, width, height)
+    | UNDO_ACTION =>
+        let
+          val _ = print "undo action\n"
+        in
+          (model, NO_DRAW, mouseX, mouseY)
+        end
 end