begin preparation for drawing cursor

2024-10-09 10:53:00 +01:00
parent fc1d08f364
commit cfaa66bc0b
3 changed files with 221 additions and 7 deletions
--- a/fcore/app-update.sml
+++ b/fcore/app-update.sml
@@ -11,8 +11,9 @@ struct
      val {buffer, windowWidth, windowHeight, startLine} = app

      val newBuffer = LineGap.goToLine (startLine, buffer)
-      val textVec =
-        TextBuilder.build (startLine, newBuffer, newWidth, newHeight)
+      val cursorIdx = 0 (* TEMP *)
+      val textVec = TextBuilder.build
+        (startLine, cursorIdx, newBuffer, newWidth, newHeight)

      val newApp = AppWith.bufferAndSize (app, newBuffer, newWidth, newHeight)
      val msg = REDRAW_TEXT textVec