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))))