done with resize functionality

This commit is contained in:
2024-08-03 07:10:38 +01:00
parent 82db7521b4
commit 7a6722cf60
3 changed files with 6 additions and 13 deletions

View File

@@ -374,21 +374,14 @@ struct
fun resizeWindow (model, mouseX, mouseY, width, height) =
let
val msg = String.concat
[ "resized window. "
, "width = "
, Int.toString width
, " height = "
, Int.toString height
, "\n"
]
val _ = print msg
val model = AppType.withWindowResize (model, width, height)
val triangles = getTrianglesVector model
val graphLines = #graphLines model
val drawMsg = RESIZE_TRIANGLES_BUTTONS_AND_GRAPH {triangles = triangles,
graphLines = graphLines}
val drawMsg =
RESIZE_TRIANGLES_BUTTONS_AND_GRAPH
{triangles = triangles,
graphLines = graphLines}
in
(model, drawMsg, mouseX, mouseY)
end