-

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]

private/web-wire.rkt

@@ -76,6 +76,8 @@
            ww-on
            ww-element-info
 
+           ww-exec-js
+
            ww-file-open
            ww-file-save
            ww-choose-dir
@@ -915,6 +917,12 @@
 
   (define (ww-await . args)
     #t)
+
+  ;; Execute Javascript
+  (def-cmd ww-exec-js
+    exec-js ((win-id ww-win?)
+             (js string?)) () -> string)
+    
   
   ;; get value of an element
   (def-cmd ww-get-value