fix exception that was previously triggered when trying to insert after loading a parsed tree, by making sure that the arrowX and arrowY fields are clamped by the new canvas width and height

2025-08-09 13:08:26 +01:00
parent 6f91c6fc52
commit 17a8885d77
3 changed files with 7 additions and 2 deletions
--- a/fcore/normal-mode.sml
+++ b/fcore/normal-mode.sml
@@ -337,7 +337,7 @@ struct
  fun useLayers (model, layerTree, canvasWidth, canvasHeight) =
    let
      val model =
-        AppWith.layerTree (model, layerTree, canvasWidth, canvasHeight)
+        AppWith.parsedLayerTree (model, layerTree, canvasWidth, canvasHeight)
    in
      getDrawMessage model
    end