From e183c968944394c402145afea6e046b4e9fa1c67 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Wed, 25 Feb 2026 08:54:54 +0100
Subject: [PATCH] -

---
 private/web-racket.rkt | 7 +++++++
 private/web-wire.rkt   | 8 ++++++++
 2 files changed, 15 insertions(+)

diff --git a/private/web-racket.rkt b/private/web-racket.rkt
index 6aeda6c..f66fecc 100644
--- a/private/web-racket.rkt
+++ b/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]
diff --git a/private/web-wire.rkt b/private/web-wire.rkt
index 85cccbc..62c4e25 100644
--- a/private/web-wire.rkt
+++ b/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