Events for racket-webview-qt

This commit is contained in:
2026-04-10 22:07:02 +02:00
parent 6d970b1f0f
commit c01274c7bd

View File

@@ -304,10 +304,18 @@
) )
) )
(define (evt-apply thunk)
(thunk))
;RKTWEBVIEW_EXPORT void rkt_webview_env(const char *env_cmds[]); ;RKTWEBVIEW_EXPORT void rkt_webview_env(const char *env_cmds[]);
(define-rktwebview rkt_webview_env (define-rktwebview rkt_webview_env
(_fun _cvector -> _void)) (_fun _cvector -> _void))
;RKTWEBVIEW_QT_EXPORT void rkt_webview_register_evt_callback(void (*f)(int));
(define-rktwebview rkt_webview_register_evt_callback
(_fun (_fun #:async-apply evt-apply #:atomic? #t
_int -> _void) -> _void))
;RKTWEBVIEW_QT_EXPORT void rkt_webview_init(int &argc, char **argv); ;RKTWEBVIEW_QT_EXPORT void rkt_webview_init(int &argc, char **argv);
(define-rktwebview rkt_webview_init (define-rktwebview rkt_webview_init
(_fun -> _void)) (_fun -> _void))