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

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