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/message-types/input-msg.sml
+++ b/message-types/input-msg.sml
@@ -5,6 +5,7 @@ sig
  | MOUSE_LEFT_CLICK
  | MOUSE_LEFT_RELEASE
  | RESIZE_WINDOW of {width: int, height: int}
+  | UNDO_ACTION
 end

 structure InputMessage :> INPUT_MESSAGE =
@@ -14,4 +15,5 @@ struct
  | MOUSE_LEFT_CLICK
  | MOUSE_LEFT_RELEASE
  | RESIZE_WINDOW of {width: int, height: int}
+  | UNDO_ACTION
 end