From 5a0ad597a31d13d08593930aef875f381a016dd4 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 18 Feb 2026 10:30:41 +0100 Subject: [PATCH] - --- info.rkt | 2 +- private/web-racket.rkt | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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)))