diff --git a/info.rkt b/info.rkt index 92399c0..9fd01cf 100644 --- a/info.rkt +++ b/info.rkt @@ -1,7 +1,7 @@ #lang info (define pkg-authors '(hnmdijkema)) -(define version "0.2.10") +(define version "0.2.11") (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 dd5ed0b..cce42cc 100644 --- a/private/web-racket.rkt +++ b/private/web-racket.rkt @@ -400,6 +400,9 @@ (dir (hash-ref content 'dir)) ) (send this dir-choosen handle choosen dir))) + ([eq? evt 'inner-html-set] (let* ((handle (hash-ref content 'handle)) + (has-been-set (hash-ref content 'oke))) + (send this inner-html-set handle has-been-set))) ) ) @@ -629,6 +632,10 @@ (ww-debug (format "dir-choosen: handle=~a, choosen=~a, dir=~a" handle choosen dir)) ) + (define/public (inner-html-set handle oke) + (ww-debug (format "inner-html-set: ~a: ~a" handle oke)) + ) + (define/public (inherit-checks) #t)