humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix getScrollColumn calculation: the right calculation is to subtract the column number by how many columns we can fit

Browse Source
This commit is contained in:
Humza Shahid
2025-09-11 17:09:43 +01:00
parent 77439acef6
commit 580f014481
2 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
fcore/normal-mode/normal-finish.sml
View File

@@ -17,6 +17,7 @@ struct
(* calculate scroll column *) (* calculate scroll column *)
val buffer = LineGap.goToIdx (cursorIdx, buffer) val buffer = LineGap.goToIdx (cursorIdx, buffer)
val visualScrollColumn = TextScroll.getScrollColumn (buffer, cursorIdx, windowWidth) val visualScrollColumn = TextScroll.getScrollColumn (buffer, cursorIdx, windowWidth)
val () = print (Int.toString visualScrollColumn ^ "\n")
(* move LineGap to first line displayed on screen *) (* move LineGap to first line displayed on screen *)
val buffer = LineGap.goToLine (startLine, buffer) val buffer = LineGap.goToLine (startLine, buffer)

4
fcore/text-scroll.sml
View File

@@ -16,7 +16,9 @@ struct
if windowWidth >= TC.textLineWidth then TC.textLineCount if windowWidth >= TC.textLineWidth then TC.textLineCount
else windowWidth div TC.xSpace else windowWidth div TC.xSpace
in in
columnDifference mod howManyColumnsCanWeFit if columnDifference < howManyColumnsCanWeFit then 0
else
columnDifference - howManyColumnsCanWeFit
end end
end end
end end