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)))))
          )
        )
      )