-

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