From ddfcb50af6b0be815abc4821538fedf34e17b0fe Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 7 Apr 2026 16:24:00 +0200
Subject: [PATCH] -

---
 wv-input.rkt | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/wv-input.rkt b/wv-input.rkt
index 2a50328..253f17e 100644
--- a/wv-input.rkt
+++ b/wv-input.rkt
@@ -34,6 +34,11 @@
 
          (define/public (set! v)
            (setter wv element-id v))
+
+         (define/public (on-change! callback-func)
+           (send window bind! element-id 'input
+                 (λ (el evt data)
+                   (callback-func (get)))))
          )
        )
      )