Index: main/widget/numberbox-test.lisp
===================================================================
--- main/widget/numberbox-test.lisp	(revision main,40)
+++ main/widget/numberbox-test.lisp	(revision main,46)
@@ -12,4 +12,9 @@
 
 
+(defun create-nb (window row name)
+  (create-numberbox window row 10 name 10
+                    :inactive-background '(#\Space 60)
+                    :active-background '(#\Space 57)))
+
 (defun test ()
   (with-screen (s)
@@ -17,7 +22,7 @@
            (data2 (make-instance 'data))
            (data3 (make-instance 'data))
-           (nbs (list (create-numberbox s 10 10 data1 10)
-                      (create-numberbox s 11 10 data2 10)
-                      (create-numberbox s 12 10 data3 10))))
+           (nbs (list (create-nb s 10 data1)
+                      (create-nb s 11 data2)
+                      (create-nb s 12 data3))))
       (setf (cdddr nbs) nbs)
       (refresh s)