From 769d5681d4696ce1e6af1a1f1f68b77a00f5758d Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 2 Mar 2026 23:15:36 +0100 Subject: [PATCH] - --- racket-webview-qt.rkt | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt index c07717e..51d52bc 100644 --- a/racket-webview-qt.rkt +++ b/racket-webview-qt.rkt @@ -28,7 +28,7 @@ ) ;(set! libname "../rktwebview/build/Release/rktwebview.dll") ;(set! libname "../rktwebview/build/Release/librktwebview.so") -(set! libname "../rktwebview_qt/build/Desktop-Release/librktwebview_qt.so") +(set! libname "../rktwebview_qt/build/Release/librktwebview_qt.so") (define webview-lib-file (build-path lib-dir libname)) (define webview-lib (ffi-lib webview-lib-file)) @@ -61,6 +61,10 @@ ;RKTWEBVIEW_QT_EXPORT result_t rkt_webview_set_html(int wv, const char *html); (define process-events #t) + +(define (stop-event-processing) + (set! process-events #f)) + (define (start-event-processing) (thread (λ () (letrec ((f (λ () @@ -68,7 +72,9 @@ (sleep 0.001) (if process-events (f) - 'done)))) + (begin + (displayln "Stopping event processing") + 'done))))) (f))))) (rkt_webview_init)