From c01274c7bd64eabfd808dc698f277d4496902d7b Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Fri, 10 Apr 2026 22:07:02 +0200 Subject: [PATCH] Events for racket-webview-qt --- racket-webview-qt.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt index 1849e28..200f8fd 100644 --- a/racket-webview-qt.rkt +++ b/racket-webview-qt.rkt @@ -304,10 +304,18 @@ ) ) +(define (evt-apply thunk) + (thunk)) + ;RKTWEBVIEW_EXPORT void rkt_webview_env(const char *env_cmds[]); (define-rktwebview rkt_webview_env (_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); (define-rktwebview rkt_webview_init (_fun -> _void))