Log sync messages

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