kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

ktxt2 scroll window when scrolling elements

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-11-02 12:07:35 -04:00
parent 3095de79da
commit eebee1e459
2 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
projects/kiss-vscode/src/ktxt2/KTxt2Editor.hx
View File

@@ -4,6 +4,7 @@ import js.html.Document;
import js.html.Window;
import js.html.Element;
import js.html.TextAreaElement;
import js.html.ScrollBehavior;
import js.Lib;
import ktxt2.EditorExterns;
import ktxt2.KTxt2;

13
projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
View File

@@ -175,7 +175,7 @@
(outerDiv.appendChild outputDiv)
(set lockLink.innerHTML (if locked "unlock" "lock"))
(set lockLink.innerHTML (if locked "unlock " "lock "))
(lockLink.addEventListener "click"
->(changeLockStatus (nth ktxt2Elements idx) !locked))
(outerDiv.appendChild lockLink)
@@ -192,6 +192,13 @@
(var &mut updatingContent false)
(function :Void setScrollY [y]
(window.scroll
(object
left 0
top y
behavior INSTANT)))
(function :Void updateContent [&opt text]
(try
{
@@ -210,11 +217,13 @@
->{
(-= elementScrollY SCROLL_AMOUNT)
(updateContent)
(setScrollY (- document.body.scrollHeight document.documentElement.clientHeight))
})
(topLink.addEventListener "click"
->{
(set elementScrollY 0)
(updateContent)
(setScrollY 0)
})
(content.appendChild upLink)
(content.appendChild topLink)))
@@ -233,11 +242,13 @@
->{
(+= elementScrollY SCROLL_AMOUNT)
(updateContent)
(setScrollY 0)
})
(bottomLink.addEventListener "click"
->{
(set elementScrollY (- ktxt2Elements.length PAGE_SIZE))
(updateContent)
(setScrollY (- document.body.scrollHeight document.documentElement.clientHeight))
})
(content.appendChild downLink)
(content.appendChild bottomLink)))