Index: main/widget/numberbox.lisp
===================================================================
--- main/widget/numberbox.lisp	(revision main,63)
+++ main/widget/numberbox.lisp	(revision main,80.1.1)
@@ -33,8 +33,10 @@
 
 (defun create-numberbox (parent-window y x data width &key
+                         (validator 'identity)
                          (inactive-background '(#\Space 0))
                          (active-background '(#\Space 0)))
   (let* ((data-wrapper (make-instance 'numberbox-data :data data :width width))
          (textbox (create-textbox parent-window y x data-wrapper width
+                                  :validator validator
                                   :inactive-background inactive-background
                                   :active-background active-background)))
@@ -49,5 +51,5 @@
       (setf edit t)
       (setf (insertion-point numberbox) :end)
-      (let ((r (call-next-method numberbox key-callback)))
+      (let ((r (call-next-method)))
         (setf edit nil)
         (setf (insertion-point numberbox) 0)