prevent default added

2026-05-04 14:24:27 +02:00
parent d43c7da6be
commit 3767d7c1f9
3 changed files with 15 additions and 12 deletions
@@ -354,8 +354,10 @@
    (define/public (call-js js)
      (webview-call-js wv js))

-    (define/public (bind! selector events callback)
-      (let ((items (webview-bind! wv selector events))
+    (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)))
        (map (λ (item)
                    (let ((id (car item))