From 018fbe14efae41c46f08bcdbfe77251da7e83e24 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 18 Feb 2026 10:42:29 +0100 Subject: [PATCH] - --- info.rkt | 2 +- private/web-racket.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/info.rkt b/info.rkt index a472c93..8d96591 100644 --- a/info.rkt +++ b/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") diff --git a/private/web-racket.rkt b/private/web-racket.rkt index 9afba53..d0a9954 100644 --- a/private/web-racket.rkt +++ b/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)))