-

private/racket-webview-qt.rkt

@@ -315,7 +315,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-struct rkt-wv
-  (win evt-queue callback [valid #:mutable])
+  (win evt-queue callback [valid #:mutable] [close-callback #:mutable])
   #:transparent
   )
 
@@ -337,14 +337,14 @@
         )
       'done))
 
-(define (rkt-webview-create parent evt-callback)
+(define (rkt-webview-create parent evt-callback close-callback)
   (let* ((evt-queue (make-queue))
          (parent-win (if (eq? parent #f) 0 (rkt-wv-win parent)))
          )
     (let ((wv (rkt_webview_create parent-win
                                   (λ (rkt-evt)
                                     (enqueue! evt-queue rkt-evt)))))
-      (let ((handle (make-rkt-wv wv evt-queue evt-callback #t)))
+      (let ((handle (make-rkt-wv wv evt-queue evt-callback #t close-callback)))
         (thread (λ ()
                   (sleep 1)
                   (letrec ((f (λ ()
@@ -365,6 +365,7 @@
 (define (rkt-webview-close handle)
   (rkt_webview_close (rkt-wv-win handle))
   (enqueue! (rkt-wv-evt-queue handle) 'quit)
+  ((rkt-wv-close-callback handle))
   #t)
 
 (define (rkt-webview-set-ou-token handle token)