diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt index 0421fb3..71fdf7a 100644 --- a/racket-webview-qt.rkt +++ b/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) diff --git a/racket-webview.rkt b/racket-webview.rkt index 4d47c92..e9fab5a 100644 --- a/racket-webview.rkt +++ b/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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;