consume events in RGFW loop. (Next: react to input events.)

2026-01-23 11:13:33 +00:00
parent b4573441fb
commit a89bb8fa5f
6 changed files with 43 additions and 7 deletions
--- a/shell/glfw-loop.sml
+++ b/shell/glfw-loop.sml
@@ -1,7 +1,5 @@
 structure GlfwLoop =
 struct
-  open DrawMsg
-
  fun yank (window, str) =
    let
      (* print when text is yanked
@@ -16,6 +14,8 @@ struct

  fun consumeEvent (drawState, window, msg) =
    let
+      open DrawMsg
+
      val {textVertexBuffer, textProgram, textDrawLength = _, ...} = drawState
    in
      case msg of