-

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

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)