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)