Events for racket-webview-qt

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))