racket webview qt finalizer next

This commit is contained in:
2026-04-18 15:32:14 +02:00
parent 472a539133
commit 7b4a88e565

View File

@@ -830,10 +830,14 @@
(handle (cdr kv))) (handle (cdr kv)))
(rkt-webview-close handle))) (rkt-webview-close handle)))
open-windows))) open-windows)))
(displayln "Sending guard-stop message to event callback")
(event-callback evt-guard-stop) (event-callback evt-guard-stop)
(displayln "Cleaning up FFI library")
(rkt_webview_cleanup) (rkt_webview_cleanup)
(unless (eq? message #f) (error message)) (unless (eq? message #f) (error message))
(displayln "Stopping event processing thread (kill-thread)"
(stop-event-processing) (stop-event-processing)
(displayln "Finalizer done")
) )
(define (rkt-webview-exit . args) (define (rkt-webview-exit . args)