add framebufferSize callback (FFI scaffolding and creating new variant of input_message type but don't react to this message in a meaningful way yet)

This commit is contained in:
2024-08-01 23:33:54 +01:00
parent c5d9ed4c69
commit 13063ea2c6
7 changed files with 34 additions and 7 deletions

View File

@@ -161,7 +161,7 @@ struct
in
(model, drawMsg, mouseX, mouseY)
end
| MUSE_LEFT_CLICK =>
| MOUSE_LEFT_CLICK =>
let
val (buttonVec, hpos, vpos) = getClickPos
(#clickPoints model, mouseX, mouseY, 0.0, 0.0, 1.0)
@@ -205,5 +205,11 @@ struct
else
(model, NO_DRAW, mouseX, mouseY)
end
| RESIZE_WINDOW {width, height} =>
let
val _ = print "resized window \n"
in
(model, NO_DRAW, mouseX, mouseY)
end
end
end