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:17:47 +02:00
parent 8626bc61dc
commit a762840e0c
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wv-window.rkt
+9 -6
View File
@@ -177,16 +177,19 @@
(define (event-handler wv evt) (define (event-handler wv evt)
(let* ((event (hash-ref evt 'event 'unknown-event)) (let* ((event (hash-ref evt 'event 'unknown-event))
(js-evt (if (eq? event 'js-evt) (js-evt (if (eq? event 'js-evt)
(hash-ref (hash-ref evt 'js-evt) 'evt #f) (let ((e (hash-ref (hash-ref evt 'js-evt) 'evt #f)))
(if e
(string->symbol e)
#f))
#f)) #f))
(cms (current-milliseconds)) (cms (current-milliseconds))
) )
(dbg-webview "< ~a ~a = ~a && eq? ~a ~a = ~a && (eq? ~a ~a || eq? ~a ~a) = ~a" ;(dbg-webview "< ~a ~a = ~a && eq? ~a ~a = ~a && (eq? ~a ~a || eq? ~a ~a) = ~a"
cms last-event-time (< cms last-event-time) ; cms last-event-time (< cms last-event-time)
last-event-kind event (eq? last-event-kind event) ; last-event-kind event (eq? last-event-kind event)
js-evt #f last-js-event js-evt (or (eq? js-evt #f) (eq? last-js-event js-evt)) ; js-evt #f last-js-event js-evt (or (eq? js-evt #f) (eq? last-js-event js-evt))
) ; )
(unless (and (unless (and
(< cms last-event-time) (< cms last-event-time)
(eq? last-event-kind event) (eq? last-event-kind event)