event debugging

2026-05-04 15:17:47 +02:00
parent 8626bc61dc
commit a762840e0c
1 changed files with 9 additions and 6 deletions
@@ -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)