add modal text draw object to imperative shell, for drawing text like file browser

2024-09-27 09:08:19 +01:00
parent e3ff121a35
commit 6fa88769aa
4 changed files with 26 additions and 1 deletions
--- a/imperative-shell/shell.sml
+++ b/imperative-shell/shell.sml
@@ -27,6 +27,8 @@ struct

      val dotDrawObject = AppDraw.initDot ()
      val triangleDrawObject = AppDraw.initTriangles ()
+      
+      val modalTextDrawObject = AppDraw.initModalText ()

      val inputMailbox = Mailbox.mailbox ()
      val drawMailbox = Mailbox.mailbox ()
@@ -47,6 +49,8 @@ struct
          , 0
          , triangleDrawObject
          , 0
+          , modalTextDrawObject
+          , 0
          ))

      val _ = CML.spawn (fn () => FileThread.run (fileMailbox, inputMailbox))