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

imperative-shell/app-draw.sml

@@ -107,6 +107,10 @@ struct
     else
       ()
 
+  val initModalText = initDot
+  val uploadModalText = uploadDotVector
+  val drawModalText = drawDot
+
   fun initTriangles () =
     let
       val triangleDrawObject = initDrawObject

imperative-shell/draw-thread.sml

@@ -12,6 +12,8 @@ struct
     , dotDrawLength
     , triangleDrawObject
     , triangleDrawLength
+    , modalTextDrawObject
+    , modalTextDrawLength
     ) =
     if not (Glfw.windowShouldClose window) then
       case Mailbox.recvPoll drawMailbox of
@@ -24,6 +26,7 @@ struct
             val _ =
               AppDraw.drawTriangles (triangleDrawObject, triangleDrawLength)
             val _ = AppDraw.drawDot (dotDrawObject, dotDrawLength)
+            val _ = AppDraw.drawModalText (modalTextDrawObject, modalTextDrawLength)
             
             val _ = Glfw.swapBuffers window
             val _ = Glfw.pollEvents ()
@@ -37,6 +40,8 @@ struct
               , dotDrawLength
               , triangleDrawObject
               , triangleDrawLength
+              , modalTextDrawObject
+              , modalTextDrawLength
               )
           end
       | SOME drawMsg =>
@@ -55,6 +60,8 @@ struct
                    , dotDrawLength
                    , triangleDrawObject
                    , triangleDrawLength
+                   , modalTextDrawObject
+                   , modalTextDrawLength
                    )
                end
            | DRAW_TRIANGLES_AND_RESET_DOTS triangleVec =>
@@ -74,6 +81,8 @@ struct
                    , 0
                    , triangleDrawObject
                    , triangleDrawLength
+                   , modalTextDrawObject
+                   , modalTextDrawLength
                    )
                end
            | DRAW_TRIANGLES_AND_DOTS {triangles = triangleVec, dots = dotsVec} =>
@@ -95,6 +104,8 @@ struct
                    , dotDrawLength
                    , triangleDrawObject
                    , triangleDrawLength
+                   , modalTextDrawObject
+                   , modalTextDrawLength
                    )
                end
            | CLEAR_DOTS =>
@@ -110,6 +121,8 @@ struct
                    , dotDrawLength
                    , triangleDrawObject
                    , triangleDrawLength
+                   , modalTextDrawObject
+                   , modalTextDrawLength
                    )
                end
            | RESIZE_TRIANGLES_DOTS_AND_GRAPH {triangles, graphLines, dots} =>
@@ -133,6 +146,8 @@ struct
                    , dotDrawLength
                    , triangleDrawObject
                    , triangleDrawLength
+                   , modalTextDrawObject
+                   , modalTextDrawLength
                    )
                end
            | DRAW_GRAPH graphLines =>
@@ -149,6 +164,8 @@ struct
                    , dotDrawLength
                    , triangleDrawObject
                    , triangleDrawLength
+                   , modalTextDrawObject
+                   , modalTextDrawLength
                    )
                end)
     else

imperative-shell/shell.sml

@@ -28,6 +28,8 @@ struct
       val dotDrawObject = AppDraw.initDot ()
       val triangleDrawObject = AppDraw.initTriangles ()
       
+      val modalTextDrawObject = AppDraw.initModalText ()
+
       val inputMailbox = Mailbox.mailbox ()
       val drawMailbox = Mailbox.mailbox ()
       val fileMailbox = Mailbox.mailbox ()
@@ -47,6 +49,8 @@ struct
           , 0
           , triangleDrawObject
           , 0
+          , modalTextDrawObject
+          , 0
           ))
 
       val _ = CML.spawn (fn () => FileThread.run (fileMailbox, inputMailbox))