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/imperative-shell/file-thread.sml
+++ b/imperative-shell/file-thread.sml
@@ -59,7 +59,12 @@ struct
      val () = TextIO.closeIn io
    in
      case Parser.parse str of
-        SOME (canvasWidth, canvasHeight, grid) => ()
+        SOME (canvasWidth, canvasHeight, grid) =>
+          Mailbox.send (inputMailbox, USE_SQUARES
+            { squares = grid
+            , canvasWidth = canvasWidth
+            , canvasHeight = canvasHeight
+            })
      | NONE => ()
    end