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:16:10 +02:00
parent d6c4b2176e
commit 8626bc61dc
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wv-window.rkt
+5 -3
View File
@@ -182,9 +182,11 @@
(cms (current-milliseconds)) (cms (current-milliseconds))
) )
(dbg-webview "< ~a ~a && eq? ~a ~a && (eq? ~a ~a || eq? ~a ~a" (dbg-webview "< ~a ~a = ~a && eq? ~a ~a = ~a && (eq? ~a ~a || eq? ~a ~a) = ~a"
cms last-event-time last-event-kind event js-evt #f cms last-event-time (< cms last-event-time)
last-js-event js-evt) 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))
)
(unless (and (unless (and
(< cms last-event-time) (< cms last-event-time)
(eq? last-event-kind event) (eq? last-event-kind event)