More robust quit/exit/cleanup/finalizing handling

racket-webview.rkt

@@ -123,6 +123,8 @@
 
          webview-set-loglevel
 
+         webview-wait-for-quit
+         webview-quit
          webview-exit
 
          ;test
@@ -1017,6 +1019,18 @@
 (define (webview-info)
   (rkt-webview-info))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Quitting and waiting
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define webview-quit-sem (make-semaphore))
+
+(define (webview-wait-for-quit)
+  (semaphore-wait webview-quit-sem))
+
+(define (webview-quit)
+  (semaphore-post webview-quit-sem))
+
 (define (webview-exit)
   (rkt-webview-exit))