better way of allowing scroll over monaco editor

2022-01-03 12:22:32 -07:00
parent 07144e95cf
commit c39ef96548
1 changed files with 2 additions and 1 deletions
--- a/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
+++ b/projects/kiss-vscode/src/ktxt2/KTxt2Editor.kiss
@@ -55,7 +55,8 @@
                ((objectWith [type "find"] text)
                    (_find text))
                (otherwise (throw "bad message $event for KTxt2Editor"))))
-    
+
+    (window.addEventListener "wheel" ->e (e.stopPropagation) true)    
    (window.addEventListener "scroll"
        ->(changeState s
            (set s.scrollY window.scrollY)))