curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-03-07 19:51:51 +09:00
Code Issues Packages Projects Releases Wiki Activity

edit.js: text line will scroll on cursor move

Browse Source
This commit is contained in:
minjaesong
2021-04-16 13:39:58 +09:00
parent 6ca20ce847
commit 3616d25cb6
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
assets/disk0/tvdos/bin/edit.js
View File

@@ -170,7 +170,7 @@ function drawTextLine(paintRow) {
// right scroll indicator
(x == paintWidth - 1 && x + scrollHor + 1 < text.length) ? 16 :
// plain text
text.charCodeAt(x + scrollHor)|0; // or-zero to convert NaN into 0
text.charCodeAt(x + scrollHor); // NaN will be returned for nonexisting char but con.addch will cast NaN into zero
con.mvaddch(PAINT_START_Y + paintRow, PAINT_START_X + x, charCode);
}
@@ -262,17 +262,24 @@ function appendLine() {
function nextCol() {
if (cursorCol < textbuffer[cursorRow].length) {
let cx = con.getyx()[1];
cursorCol += 1;
if (cursorCol >= paintWidth)
if (cursorCol >= paintWidth && cx == paintWidth + PAINT_START_X - 1) {
scrollHor += 1;
drawTextLine(cursorRow - scroll);
}
}
}
function prevCol() {
if (cursorCol > 0) {
let cx = con.getyx()[1];
serial.println(`cx=${cx}; cursorCol: ${cursorCol}->${cursorCol-1}; scrollHor=${scrollHor}`);
cursorCol -= 1;
if (scrollHor > 0 && cursorCol == scrollHor)
if (scrollHor > 0 && cursorCol == scrollHor && cx == PAINT_START_X + 1) {
scrollHor -= 1;
drawTextLine(cursorRow - scroll);
}
}
}