diff --git a/wv-window.rkt b/wv-window.rkt index d668259..4ada1f4 100644 --- a/wv-window.rkt +++ b/wv-window.rkt @@ -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)