webview-exit

racket-webview-qt.rkt

@@ -835,7 +835,6 @@
                 open-windows)))
   (rkt_webview_register_evt_callback #f)
   (dbg-webview "Sending guard-stop message to event callback")
-  ;(sleep 0.5)
   (event-callback evt-guard-stop)
   (dbg-webview "Cleaning up FFI library")
   (rkt_webview_cleanup)

racket-webview.rkt

@@ -123,6 +123,8 @@
 
          webview-set-loglevel
 
+         webview-exit
+
          ;test
          )
 
@@ -1015,6 +1017,9 @@
 (define (webview-info)
   (rkt-webview-info))
 
+(define (webview-exit)
+  (rkt-webview-exit))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; testing
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;