set the sampling slower (0.05 instead of 0.005) because racket takes too much CPU otherwise

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)))