a little refactoring (different CML loops have their own files now)

2024-08-28 19:34:47 +01:00
parent 0a4de92862
commit fb9202248c
5 changed files with 34 additions and 27 deletions
--- a/imperative-shell/shell.sml
+++ b/imperative-shell/shell.sml
@@ -32,9 +32,9 @@ struct
      val _ = CML.spawn (fn () =>
        InputCallbacks.registerCallbacks (window, inputMailbox))
      val _ = CML.spawn (fn () =>
-        EventLoop.update (inputMailbox, drawMailbox, initialModel))
+        UpdateThread.run (inputMailbox, drawMailbox, initialModel))
      val _ = CML.spawn (fn () =>
-        EventLoop.draw
+        DrawThread.run
          ( drawMailbox
          , window
          , graphDrawObject