add functionality to move to end of line

2024-10-30 10:54:55 +00:00
parent 308d042deb
commit 601a341992
4 changed files with 35 additions and 4 deletions
--- a/fcore/text-window.sml
+++ b/fcore/text-window.sml
@@ -252,7 +252,7 @@ struct
                      end
                in
                  getCursorStartLine 
-                    (strIdx, shd, lineNum, leftStrings, maxWidth, maxHeight div 2)
+                    (strIdx, shd, lineNum, leftStrings, maxWidth, maxHeight)
                end
              else
                (* todo: strIdx is in tl *)