fix bug: when loading a parsed layer tree, graph lines should be regenerated

2025-08-09 13:50:31 +01:00
parent c29746dd5b
commit e160e997d3
4 changed files with 19 additions and 6 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -1007,8 +1007,8 @@ struct
        { mode
        , mouseX
        , mouseY
-        , xClickPoints
-        , yClickPoints
+        , xClickPoints = _
+        , yClickPoints = _
        , windowWidth
        , windowHeight
        , arrowX
@@ -1033,6 +1033,9 @@ struct
        if canvasWidth = 0 then 0 else Int.min (canvasWidth - 1, arrowX)
      val arrowY =
        if canvasHeight = 0 then 0 else Int.min (canvasHeight - 1, arrowY)
+      val (xClickPoints, yClickPoints) =
+        ClickPoints.generate
+          (windowWidth, windowHeight, canvasWidth, canvasHeight)
    in
      { mode = mode
      , mouseX = mouseX