-

private/racket-webview-qt.rkt

@@ -18,6 +18,7 @@
          
          rkt-webview-create
          rkt-webview-close
+         rkt-webview-set-ou-token
          rkt-webview-set-url!
          rkt-webview-set-html!
          rkt-webview-run-js
@@ -196,6 +197,10 @@
 (define-rktwebview rkt_webview_close
   (_fun _int -> _void))
 
+;void rkt_webview_set_ou_token(rktwebview_t wv, const char *token)
+(define-rktwebview rkt_webview_set_ou_token
+  (_fun _int _string/utf-8 -> _void))
+
 ;RKTWEBVIEW_QT_EXPORT result_t rkt_webview_set_url(int wv, const char *url);
 (define-rktwebview rkt_webview_set_url
   (_fun _int _string/utf-8 -> _rkt_result_t))
@@ -362,6 +367,10 @@
   (enqueue! (rkt-wv-evt-queue handle) 'quit)
   #t)
 
+(define (rkt-webview-set-ou-token handle token)
+  (rkt_webview_set_ou_token (rkt-wv-win handle) token)
+  #t)
+
 (define (rkt-webview-set-url! wv url)
   (rkt_webview_set_url (rkt-wv-win wv) url))