diff --git a/info.rkt b/info.rkt index e7f4450..62a5011 100644 --- a/info.rkt +++ b/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") diff --git a/private/web-racket.rkt b/private/web-racket.rkt index 1dcfd12..f22b928 100644 --- 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))