prevent default added

2026-05-04 14:55:19 +02:00
parent c9a705b5df
commit 0c262bd47b
1 changed files with 5 additions and 4 deletions
@@ -355,10 +355,11 @@
      (webview-call-js wv js))

    (define/public (bind! selector events callback . no-prevent-default)
-      (let ((items (webview-bind! wv selector events (if (null? no-prevent-default)
-                                                         #f
-                                                         (car no-prevent-default))))
-            (events* (if (symbol? events) (list events) events)))
+      (let* ((npd   (if (null? no-prevent-default) #f (car no-prevent-default)))
+             (items (webview-bind! wv selector events npd))
+             (events* (if (symbol? events) (list events) events))
+             )
+        (dbg-webview "No-prevent-default = ~a" npd)
        (map (λ (item)
                    (let ((id (car item))
                          (type (string->symbol (string-downcase (caddr item))))