hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

prevent default added

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-04 14:24:27 +02:00
parent d43c7da6be
commit 3767d7c1f9
3 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
racket-webview.rkt
+4 -3
View File
@@ -705,7 +705,7 @@
(rkt-webview-close (wv-win-handle wv))
'oke))
(define/contract (webview-bind! wv selector event)
(define/contract (webview-bind! wv selector event no-prevent-default)
(-> wv-win? (or/c symbol? string?) (or/c symbol? list-of-symbol?) list?)
(let* ((sel (if (symbol? selector)
(format "#~a" selector)
@@ -715,8 +715,9 @@
(map (λ (e) (format "'~a'" e)) event*) ", ")))
)
(let ((r (webview-call-js wv
(format "return window.rkt_bind_evt_ids(~a, '~a', ~a)"
(wv-win-window-nr wv) sel evt))))
(format "return window.rkt_bind_evt_ids(~a, '~a', ~a, ~a)"
(wv-win-window-nr wv) sel evt
(if no-prevent-default 'true 'false)))))
(map (λ (el)
(list (string->symbol (car el)) (cadr el) (caddr el)))
r))))