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:51:14 +02:00
parent dc58f0d4fe
commit c9a705b5df
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
racket-webview.rkt
+5 -4
View File
@@ -714,10 +714,11 @@
(evt (format "[ ~a ]" (string-join (evt (format "[ ~a ]" (string-join
(map (λ (e) (format "'~a'" e)) event*) ", "))) (map (λ (e) (format "'~a'" e)) event*) ", ")))
) )
(let ((r (webview-call-js wv (let* ((j (format "return window.rkt_bind_evt_ids(~a, '~a', ~a, ~a);"
(format "return window.rkt_bind_evt_ids(~a, '~a', ~a, ~a)" (wv-win-window-nr wv) sel evt (if no-prevent-default 'true 'false)))
(wv-win-window-nr wv) sel evt (r (webview-call-js wv j))
(if no-prevent-default 'true 'false))))) )
(dbg-webview "called js: ~a" j)
(map (λ (el) (map (λ (el)
(list (string->symbol (car el)) (cadr el) (caddr el))) (list (string->symbol (car el)) (cadr el) (caddr el)))
r)))) r))))