progress updating canvas width at runtime

2025-07-11 17:41:47 +01:00
parent e760b158ac
commit 08ed5cc3d5
4 changed files with 47 additions and 5 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -860,13 +860,14 @@ struct
        } = app

      val squares = changeSquaresSize (squares, newCanvasWidth, canvasHeight)
+      val arrowX = Int.min (arrowX, newCanvasWidth)
    in
      { mode = mode
      , canvasWidth = newCanvasWidth
+      , arrowX = arrowX
      , mouseX = mouseX
      , mouseY = mouseY
      , squares = squares
-      , arrowX = arrowX
      , arrowY = arrowY
      , canvasHeight = canvasHeight
      , windowWidth = windowWidth