event debugging

2026-05-04 15:08:06 +02:00
parent 061ad918f1
commit ad7a74b0e9
1 changed files with 4 additions and 2 deletions
@@ -179,17 +179,19 @@
             (js-evt (if (eq? event 'js-evt)
                         (hash-ref (hash-ref evt 'js-evt) 'evt #f)
                         #f))
+             (cms (current-milliseconds))
             )

        (unless (and
-                 (> (+ last-event-time 500) (current-milliseconds))
+                 (< cms last-event-time)
                 (eq? last-event-kind event)
                 (or (eq? js-evt #f)
                     (eq? last-js-event js-evt)))
          (dbg-webview "event-handler - evt = ~a" evt)
          (set! last-event-kind event)
          (set! last-js-event js-evt)
-          (set! last-event-time (current-milliseconds)))
+          (set! last-event-time (+ cms 500))
+          )
        
        (cond
        ((eq? event 'resize)