From c9a705b5df76d58605f2d9c4a464d0ba5142762c Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 4 May 2026 14:51:14 +0200 Subject: [PATCH] prevent default added --- racket-webview.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/racket-webview.rkt b/racket-webview.rkt index 3faace2..9edcee8 100644 --- a/racket-webview.rkt +++ b/racket-webview.rkt @@ -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))))