Index: main/widget/numberbox.lisp
===================================================================
--- main/widget/numberbox.lisp	(revision main,40)
+++ main/widget/numberbox.lisp	(revision main,46)
@@ -32,7 +32,11 @@
     (setf (text data) s)))
 
-(defun create-numberbox (parent-window y x data width)
+(defun create-numberbox (parent-window y x data width &key
+                         (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)))
+         (textbox (create-textbox parent-window y x data-wrapper width
+                                  :inactive-background inactive-background
+                                  :active-background active-background)))
     (change-class textbox 'numberbox)))