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/app-draw.sml
+++ b/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