hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Log sync messages

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-20 16:31:06 +02:00
parent 6c242e5aa0
commit f13ce53b71
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
racket-webview-qt.rkt
View File

@@ -870,6 +870,7 @@
(rkt_webview_register_evt_callback #f) (rkt_webview_register_evt_callback #f)
(while (eq? event-processing-kind 'sync) (while (eq? event-processing-kind 'sync)
(sleep 0.01)) (sleep 0.01))
(sync-log-webview)
; When asked to, close all windows ; When asked to, close all windows
(when close-windows (when close-windows
@@ -880,7 +881,8 @@
(handle (cdr kv))) (handle (cdr kv)))
(rkt-webview-close handle))) (rkt-webview-close handle)))
open-windows))) open-windows)))
(sync-log-webview)
; Stop event processing ; Stop event processing
(dbg-webview "Stop the event processor") (dbg-webview "Stop the event processor")
(event-callback evt-guard-stop) (event-callback evt-guard-stop)
@@ -889,10 +891,12 @@
(dbg-webview "evt-processing-thread = ~a" evt-processing-thread) (dbg-webview "evt-processing-thread = ~a" evt-processing-thread)
(sleep 0.25)) (sleep 0.25))
(dbg-webview "Event processing stopped") (dbg-webview "Event processing stopped")
(sync-log-webview)
; cleanup the library ; cleanup the library
(dbg-webview "cleanup of the rkt-webview-qt 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) (rkt_webview_cleanup)
; Maybe get in error state ; Maybe get in error state
@@ -902,6 +906,7 @@
; Exit done ; Exit done
(set! webview-exit-done #t) (set! webview-exit-done #t)
(info-webview "webview-exit done") (info-webview "webview-exit done")
(sync-log-webview)
) )
) )