-

2026-02-18 22:34:31 +01:00
parent af00785b1f
commit 72652a809b
2 changed files with 8 additions and 1 deletions
--- a/private/web-racket.rkt
+++ b/private/web-racket.rkt
@@ -501,6 +501,13 @@
          )
        (hash-ref elements id))

+      (define/public (new-element id . cl-selector)
+        (unless (hash-has-key? elements id)
+          (let ((cl (if (null? cl-selector) ww-element% (car cl-selector))))
+            (let ((obj (new cl [win-id win-id] [id id])))
+              (hash-set! elements id obj))))
+        (hash-ref elements id))
+
      (define/public (get-elements selector)
        (ww-get-elements win-id selector))