From 8626bc61dcd17912c87ce7bcbaa969b76595466d Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 4 May 2026 15:16:10 +0200 Subject: [PATCH] event debugging --- wv-window.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/wv-window.rkt b/wv-window.rkt index d32e9aa..0f25341 100644 --- a/wv-window.rkt +++ b/wv-window.rkt @@ -182,9 +182,11 @@ (cms (current-milliseconds)) ) - (dbg-webview "< ~a ~a && eq? ~a ~a && (eq? ~a ~a || eq? ~a ~a" - cms last-event-time last-event-kind event js-evt #f - last-js-event js-evt) + (dbg-webview "< ~a ~a = ~a && eq? ~a ~a = ~a && (eq? ~a ~a || eq? ~a ~a) = ~a" + cms last-event-time (< cms last-event-time) + 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 (< cms last-event-time) (eq? last-event-kind event)