From 6d970b1f0f80f3dacdd514180b0f6d73c873db3a Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Fri, 10 Apr 2026 08:55:31 +0200 Subject: [PATCH] set the sampling slower (0.05 instead of 0.005) because racket takes too much CPU otherwise --- racket-webview-qt.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt index c443465..1849e28 100644 --- a/racket-webview-qt.rkt +++ b/racket-webview-qt.rkt @@ -511,6 +511,10 @@ ;(set! quiet-call (start-event-processing)) (define evt-cb-hash (make-hash)) + +;; TODO Make this more semaphore like.. +;; EG callback from library. + (define (start-event-processing) (thread (λ () (letrec ((f (λ () @@ -540,7 +544,7 @@ (set! waiting (- waiting 1)) ) ) - (sleep 0.005) + (sleep 0.05) (f)) )) (f)))