begin drawing file browser text

imperative-shell/draw-thread.sml

@@ -26,8 +26,9 @@ struct
             val _ =
               AppDraw.drawTriangles (triangleDrawObject, triangleDrawLength)
             val _ = AppDraw.drawDot (dotDrawObject, dotDrawLength)
-            val _ = AppDraw.drawModalText (modalTextDrawObject, modalTextDrawLength)
-            
+            val _ =
+              AppDraw.drawModalText (modalTextDrawObject, modalTextDrawLength)
+
             val _ = Glfw.swapBuffers window
             val _ = Glfw.pollEvents ()
           in
@@ -167,6 +168,24 @@ struct
                    , modalTextDrawObject
                    , modalTextDrawLength
                    )
+               end
+           | DRAW_MODAL_TEXT vec =>
+               let
+                 val _ = AppDraw.uploadModalText (modalTextDrawObject, vec)
+                 val modalTextDrawLength = Vector.length vec div 5
+               in
+                 run
+                   ( drawMailbox
+                   , window
+                   , graphDrawObject
+                   , drawGraphLength
+                   , dotDrawObject
+                   , dotDrawLength
+                   , triangleDrawObject
+                   , triangleDrawLength
+                   , modalTextDrawObject
+                   , modalTextDrawLength
+                   )
                end)
     else
       Glfw.terminate ()