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

a bit of formatting (no other changes in this commit)

Browse Source
This commit is contained in:
Humza Shahid
2024-07-31 12:30:12 +01:00
parent d18e6f105d
commit 6a2fe3ed18
6 changed files with 40 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
functional-core/app-update.sml
View File

@@ -86,16 +86,16 @@ struct
MOUSE_MOVE {x = mouseX, y = mouseY} =>
let
val _ = print "mouse moved\n"
val drawMsg =
DRAW_BUTTON (getClickPos (mouseX, mouseY, 1.0, 0.0, 0.0))
val drawMsg =
DRAW_BUTTON (getClickPos (mouseX, mouseY, 1.0, 0.0, 0.0))
in
(model, drawMsg, mouseX, mouseY)
end
| MOUSE_LEFT_RELEASE =>
let
val _ = print "mouse released\n"
val drawMsg = DRAW_BUTTON
(getClickPos (mouseX, mouseY, 1.0, 0.0, 0.0))
val drawMsg =
DRAW_BUTTON (getClickPos (mouseX, mouseY, 1.0, 0.0, 0.0))
in
(model, drawMsg, mouseX, mouseY)
end