hans/racket-webview
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-03-02 23:15:36 +01:00
parent 221ebe156c
commit 769d5681d4
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
racket-webview-qt.rkt
View File

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