Index: main/widget/textbox-test.lisp
===================================================================
--- main/widget/textbox-test.lisp	(revision main,40)
+++ main/widget/textbox-test.lisp	(revision main,46)
@@ -14,5 +14,6 @@
   (with-screen (s)
     (let* ((data (make-instance 'data))
-           (tb (create-textbox s 10 10 data 8)))
+           (tb (create-textbox s 10 10 data 8
+                               :active-background '(#\Space 60))))
       (unwind-protect
            (flet ((cb (key)