humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

additional scaffolding

Browse Source
This commit is contained in:
Humza Shahid
2024-07-31 12:27:11 +01:00
parent 29793cccbe
commit d18e6f105d
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dot-to-dot
View File

Binary file not shown.

4
imperative-shell/event-loop.sml
View File

@@ -17,7 +17,7 @@ struct
loop (inputMailbox, drawMailbox, 0, 0, AppType.initial) loop (inputMailbox, drawMailbox, 0, 0, AppType.initial)
end end
fun draw (window, graphDrawObject, buttonDrawObject, buttonDrawLength) = fun draw (drawMailbox, window, graphDrawObject, buttonDrawObject, buttonDrawLength) =
if not (Glfw.windowShouldClose window) then if not (Glfw.windowShouldClose window) then
let let
val _ = Gles3.clearColor (1.0, 1.0, 1.0, 1.0) val _ = Gles3.clearColor (1.0, 1.0, 1.0, 1.0)
@@ -29,7 +29,7 @@ struct
val _ = Glfw.pollEvents () val _ = Glfw.pollEvents ()
val _ = Glfw.swapBuffers window val _ = Glfw.swapBuffers window
in in
draw (window, graphDrawObject, buttonDrawObject, buttonDrawLength) draw (drawMailbox, window, graphDrawObject, buttonDrawObject, buttonDrawLength)
end end
else else
Glfw.terminate () Glfw.terminate ()

2
imperative-shell/shell.sml
View File

@@ -21,7 +21,7 @@ struct
val _ = CML.spawn (fn () => InputCallbacks.registerCallbacks (window, inputMailbox)) val _ = CML.spawn (fn () => InputCallbacks.registerCallbacks (window, inputMailbox))
val _ = CML.spawn (fn () => EventLoop.update (inputMailbox, drawMailbox)) val _ = CML.spawn (fn () => EventLoop.update (inputMailbox, drawMailbox))
val _ = CML.spawn (fn () => EventLoop.draw (window, graphDrawObject, buttonDrawObject, 0)) val _ = CML.spawn (fn () => EventLoop.draw (drawMailbox, window, graphDrawObject, buttonDrawObject, 0))
in in
() ()
end end