Integrating quit/exit/cleanup mechanism.

rktplayer.rkt

@@ -10,7 +10,7 @@
          net/uri-codec
          )
 
-(provide run-rktplayer)
+(provide run)
 
 (define-runtime-path rkt-gui-dir "gui")
 
@@ -47,13 +47,9 @@
          (window (new rktplayer% [wv-context context]))
          )
     ;(send window devtools)
-    (let ((sem (make-semaphore)))
-      (send window on-quit (lambda () (semaphore-post sem)))
-      sem)
+    (webview-wait-for-quit)
+    (webview-exit)
+    (exit)
     )
   )
 
-(define (run-rktplayer)
-  (let ((sem (run)))
-    (semaphore-wait sem)))
-