diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt index 920e0be..02f8305 100644 --- a/racket-webview-qt.rkt +++ b/racket-webview-qt.rkt @@ -870,6 +870,7 @@ (rkt_webview_register_evt_callback #f) (while (eq? event-processing-kind 'sync) (sleep 0.01)) + (sync-log-webview) ; When asked to, close all windows (when close-windows @@ -880,7 +881,8 @@ (handle (cdr kv))) (rkt-webview-close handle))) open-windows))) - + (sync-log-webview) + ; Stop event processing (dbg-webview "Stop the event processor") (event-callback evt-guard-stop) @@ -889,10 +891,12 @@ (dbg-webview "evt-processing-thread = ~a" evt-processing-thread) (sleep 0.25)) (dbg-webview "Event processing stopped") + (sync-log-webview) ; cleanup the library (dbg-webview "cleanup of the rkt-webview-qt library") - (displayln "cleanup webview") + (sync-log-webview) ; Wait for all messages to have been processed before calling rkt_webview_cleanup + (rkt_webview_cleanup) ; Maybe get in error state @@ -902,6 +906,7 @@ ; Exit done (set! webview-exit-done #t) (info-webview "webview-exit done") + (sync-log-webview) ) )