racket webview qt finalizer next
This commit is contained in:
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user