fix loading to use and return layer tree

2025-08-09 11:42:37 +01:00
parent 940e4429a7
commit 99a47a410f
7 changed files with 99 additions and 37 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -999,4 +999,62 @@ struct
      , modalNum = 0
      }
    end
+
+  fun useLayerTree (app: app_type, layerTree, canvasWidth, canvasHeight) :
+    app_type =
+    let
+      val
+        { mode
+        , mouseX
+        , mouseY
+        , xClickPoints
+        , yClickPoints
+        , windowWidth
+        , windowHeight
+        , arrowX = _
+        , arrowY = _
+        , canvasWidth = _
+        , canvasHeight = _
+
+        , showGraph
+        , openFilePath
+        , fileBrowser
+        , fileBrowserIdx
+        , r
+        , g
+        , b
+        , a
+        , layer
+        , layerTree = _
+        , modalNum
+        } = app
+
+      val arrowX = 0
+      val arrowY = 0
+    in
+      { mode = mode
+      , mouseX = mouseX
+      , mouseY = mouseY
+      , arrowX = arrowX
+      , arrowY = arrowY
+      , canvasWidth = canvasWidth
+      , canvasHeight = canvasHeight
+      , windowWidth = windowWidth
+      , windowHeight = windowHeight
+      , xClickPoints = xClickPoints
+      , yClickPoints = yClickPoints
+
+      , showGraph = showGraph
+      , openFilePath = openFilePath
+      , fileBrowser = fileBrowser
+      , fileBrowserIdx = fileBrowserIdx
+      , r = r
+      , g = g
+      , b = b
+      , a = a
+      , layer = layer
+      , layerTree = layerTree
+      , modalNum = modalNum
+      }
+    end
 end