-

info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define pkg-authors '(hnmdijkema))
-(define version "0.2.15")
+(define version "0.2.16")
 (define license 'MIT)   
 (define collection "web-racket")
 (define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire")

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))