prevent default added

2026-05-04 14:51:14 +02:00
parent dc58f0d4fe
commit c9a705b5df
1 changed files with 5 additions and 4 deletions
@@ -714,10 +714,11 @@
         (evt (format "[ ~a ]" (string-join
                                (map (λ (e) (format "'~a'" e)) event*) ", ")))
         )
-    (let ((r (webview-call-js wv
-                              (format "return window.rkt_bind_evt_ids(~a, '~a', ~a, ~a)"
-                                      (wv-win-window-nr wv) sel evt
-                                      (if no-prevent-default 'true 'false)))))
+    (let* ((j (format "return window.rkt_bind_evt_ids(~a, '~a', ~a, ~a);"
+                      (wv-win-window-nr wv) sel evt (if no-prevent-default 'true 'false)))
+           (r (webview-call-js wv j))
+           )
+      (dbg-webview "called js: ~a" j)
      (map (λ (el)
             (list (string->symbol (car el)) (cadr el) (caddr el)))
           r))))