Index: main/widget/generic.lisp
===================================================================
--- main/widget/generic.lisp	(revision main,63)
+++ main/widget/generic.lisp	(revision main,84)
@@ -2,6 +2,6 @@
   (:use #:cl)
   (:export #:text #:widget #:parent-window #:column #:row #:inactive-background
-           #:active-background #:scroll #:insertion-point #:destroy #:draw
-           #:activate))
+           #:active-background #:scroll #:insertion-point #:create-widget
+           #:destroy #:draw #:activate))
 
 (in-package #:tui-widget-generic)
@@ -26,6 +26,6 @@
    (row :type (integer 0) :initarg :row)
    ;; TODO: initform for bg-color
-   (inactive-background :initarg :inactive-background)
-   (active-background :initarg :active-background)))
+   (inactive-background :initform '(#\Nul 0) :initarg :inactive-background)
+   (active-background :initform '(#\Nul 0) :initarg :active-background)))
 
 (defclass scroll ()
@@ -39,4 +39,6 @@
 
 
+(defgeneric create-widget (type parent y x &key &allow-other-keys))
+
 (defgeneric destroy (widget))