-

info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define pkg-authors '(hnmdijkema))
-(define version "0.2.4")
+(define version "0.2.5")
 (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

@@ -220,9 +220,9 @@
         (inp-set! val (ww-get-value (send this get-win-id)
                                     (send this get-id)))
         (send this connect 'input (λ (data)
-                                    (ww-debug data)
+                                    (ww-debug "WW-INPUT% 'input event:" data)
                                     (let ((js-evt (hash-ref data 'js_evt #f)))
-                                      (ww-debug js-evt)
+                                      (ww-debug "WW-INPUT% 'input event, js-evt = " js-evt)
                                       (unless (eq? js-evt #f)
                                         (when (hash-has-key? js-evt 'value)
                                           (let ((v (hash-ref js-evt 'value)))