-

private/web-racket.rkt

@@ -37,6 +37,7 @@
            ww-error
            ww-set-log-level
            ww-log-level
+           ww-exec-js
 
            (all-from-out "css.rkt")
            (all-from-out "menu.rkt")
@@ -108,6 +109,9 @@
                                (ww-error (format "callback for ~a: ~a" evt e)))])
               (apply cb args)))))
 
+      (define/public (exec-js js)
+        (ww-exec-js win-id js))
+
       (define/public (connect evt func)
         (hash-set! connected-callbacks evt func))
 
@@ -449,6 +453,9 @@
 
       (define/public (get-win-id) win-id)
 
+      (define/public (exec-js js)
+        (ww-exec-js win-id js))
+
       (define (cl-selector tag type)
         (cond
           ([eq? tag 'INPUT]