diff --git a/info.rkt b/info.rkt index 954a2cd..a472c93 100644 --- a/info.rkt +++ b/info.rkt @@ -1,7 +1,7 @@ #lang info (define pkg-authors '(hnmdijkema)) -(define version "0.2.3") +(define version "0.2.4") (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 f935580..9afba53 100644 --- a/private/web-racket.rkt +++ b/private/web-racket.rkt @@ -220,7 +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) (let ((js-evt (hash-ref data 'js_evt #f))) + (ww-debug js-evt) (unless (eq? js-evt #f) (when (hash-has-key? js-evt 'value) (let ((v (hash-ref js-evt 'value)))