done implementing load-squares functionality

2025-07-12 07:17:52 +01:00
parent dcf6bc074d
commit b58100ca7e
5 changed files with 83 additions and 12 deletions
--- a/message-types/input-msg.sml
+++ b/message-types/input-msg.sml
@@ -27,7 +27,10 @@ struct
  | KEY_ENTER
  | KEY_SPACE
  | USE_SQUARES of
-      {squares: int vector vector, canvasWidth: int, canvasHeight: int}
+      { squares: {r: int, g: int, b: int, a: int} vector vector
+      , canvasWidth: int
+      , canvasHeight: int
+      }
  | SQUARES_LOAD_ERROR
  | FILE_BROWSER_AND_PATH of
      {fileBrowser: AppType.file_browser_item vector, path: string}