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

event debugging

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-04 15:08:06 +02:00
parent 061ad918f1
commit ad7a74b0e9
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wv-window.rkt
+4 -2
View File
@@ -179,17 +179,19 @@
(js-evt (if (eq? event 'js-evt) (js-evt (if (eq? event 'js-evt)
(hash-ref (hash-ref evt 'js-evt) 'evt #f) (hash-ref (hash-ref evt 'js-evt) 'evt #f)
#f)) #f))
(cms (current-milliseconds))
) )
(unless (and (unless (and
(> (+ last-event-time 500) (current-milliseconds)) (< cms last-event-time)
(eq? last-event-kind event) (eq? last-event-kind event)
(or (eq? js-evt #f) (or (eq? js-evt #f)
(eq? last-js-event js-evt))) (eq? last-js-event js-evt)))
(dbg-webview "event-handler - evt = ~a" evt) (dbg-webview "event-handler - evt = ~a" evt)
(set! last-event-kind event) (set! last-event-kind event)
(set! last-js-event js-evt) (set! last-js-event js-evt)
(set! last-event-time (current-milliseconds))) (set! last-event-time (+ cms 500))
)
(cond (cond
((eq? event 'resize) ((eq? event 'resize)