have cursor drawn now, but it is not appropriate size for character so have to fix that next

2024-10-09 12:05:40 +01:00
parent 5cc4357cc7
commit 306d693877
2 changed files with 2 additions and 2 deletions
--- a/fcore/text-builder.sml
+++ b/fcore/text-builder.sml
@@ -328,9 +328,9 @@ struct
            val chrFun = Vector.sub (CozetteAscii.asciiTable, Char.ord chr)
            val cursorAcc = 
              if absIdx <> cursorPos then
-                buildCursor (posX, posY, fWindowWidth, fWindowHeight)
-              else 
                cursorAcc
+              else 
+                buildCursor (posX, posY, fWindowWidth, fWindowHeight)
          in
            if posX + xSpace < windowWidth then
              let
--- a/BIN
+++ b/BIN