return normalised device coordinates together with vector, from getClickPos function

2024-07-31 14:52:12 +01:00
parent a2c499c933
commit 087998ac6b
4 changed files with 49 additions and 29 deletions
--- a/imperative-shell/event-loop.sml
+++ b/imperative-shell/event-loop.sml
@@ -55,7 +55,15 @@ struct
                   , buttonDrawObject
                   , buttonDrawLength
                   )
-               end)
+               end
+           | NO_DRAW =>
+               draw
+                 ( drawMailbox
+                 , window
+                 , graphDrawObject
+                 , buttonDrawObject
+                 , buttonDrawLength
+                 ))
    else
      Glfw.terminate ()
 end