Events for racket-webview-qt
This commit is contained in:
@@ -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))
|
||||||
|
|||||||
Reference in New Issue
Block a user