From a762840e0c7eb296a33a05cb56c34057e0d2a68f Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 4 May 2026 15:17:47 +0200 Subject: [PATCH] event debugging --- wv-window.rkt | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/wv-window.rkt b/wv-window.rkt index 0f25341..d8134f0 100644 --- a/wv-window.rkt +++ b/wv-window.rkt @@ -177,16 +177,19 @@ (define (event-handler wv evt) (let* ((event (hash-ref evt 'event 'unknown-event)) (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)) (cms (current-milliseconds)) ) - (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)) - ) + ;(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)