racket webview qt finalizer next

rktplayer.rkt

@@ -10,6 +10,8 @@
          net/uri-codec
          )
 
+(provide run-rktplayer)
+
 (define-runtime-path rkt-gui-dir "gui")
 
 (define log-file (build-path (find-system-path 'home-dir) ".rktplayer.log"))
@@ -45,7 +47,13 @@
          (window (new rktplayer% [wv-context context]))
          )
     ;(send window devtools)
-    window)
+    (let ((sem (make-semaphore)))
+      (send window on-quit (lambda () (semaphore-post sem)))
+      sem)
+    )
   )
 
-;(run)
+(define (run-rktplayer)
+  (let ((sem (run)))
+    (semaphore-wait sem)))
+