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:55:19 +02:00
parent c9a705b5df
commit 0c262bd47b
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wv-window.rkt
+5 -4
View File
@@ -355,10 +355,11 @@
(webview-call-js wv js)) (webview-call-js wv js))
(define/public (bind! selector events callback . no-prevent-default) (define/public (bind! selector events callback . no-prevent-default)
(let ((items (webview-bind! wv selector events (if (null? no-prevent-default) (let* ((npd (if (null? no-prevent-default) #f (car no-prevent-default)))
#f (items (webview-bind! wv selector events npd))
(car no-prevent-default)))) (events* (if (symbol? events) (list events) events))
(events* (if (symbol? events) (list events) events))) )
(dbg-webview "No-prevent-default = ~a" npd)
(map (λ (item) (map (λ (item)
(let ((id (car item)) (let ((id (car item))
(type (string->symbol (string-downcase (caddr item)))) (type (string->symbol (string-downcase (caddr item))))