allow scroll ktxt2editor from on top of monaco div

2022-01-02 18:58:03 -07:00
parent 91412a1a13
commit a778f2574c
1 changed files with 2 additions and 0 deletions
--- a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
+++ b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
@@ -39,6 +39,8 @@
    (set Prelude.printStr ->[message]
        (_vscode.postMessage (object type "print" text message)))

+    (window.addEventListener "wheel" ->event {(event.preventDefault)(window.scrollBy 0 event.deltaY)} true)
+
    (window.addEventListener "message"
        ->:Void event
            (case (the MessageToEditor event.data)