-

racket-webview-qt.rkt

@@ -28,7 +28,7 @@
   )
 ;(set! libname "../rktwebview/build/Release/rktwebview.dll")
 ;(set! libname "../rktwebview/build/Release/librktwebview.so")
-(set! libname "../rktwebview_qt/build/Desktop-Release/librktwebview_qt.so")
+(set! libname "../rktwebview_qt/build/Release/librktwebview_qt.so")
 (define webview-lib-file (build-path lib-dir libname))
 
 (define webview-lib (ffi-lib webview-lib-file))
@@ -61,6 +61,10 @@
 ;RKTWEBVIEW_QT_EXPORT result_t rkt_webview_set_html(int wv, const char *html);
 
 (define process-events #t)
+
+(define (stop-event-processing)
+  (set! process-events #f))
+
 (define (start-event-processing)
   (thread (λ ()
             (letrec ((f (λ ()
@@ -68,7 +72,9 @@
                           (sleep 0.001)
                           (if process-events
                               (f)
-                              'done))))
+                              (begin
+                                (displayln "Stopping event processing")
+                                'done)))))
               (f)))))
 
 (rkt_webview_init)