Index: main/widget/db-checkbox.lisp
===================================================================
--- main/widget/db-checkbox.lisp	(revision main,84)
+++ main/widget/db-checkbox.lisp	(revision main,84)
@@ -0,0 +1,35 @@
+(defpackage #:tui-widget-db-checkbox
+  (:use #:cl #:tui-widget-checkbox)
+  (:export
+
+   ;; widget
+   #:text #:widget #:parent-window #:column #:row #:inactive-background
+   #:active-background #:scroll #:insertion-point #:create-widget #:destroy
+   #:draw #:activate
+
+   ;; checkbox
+   #:checkbox #:checked #:listener
+
+   ;; db-checkbox
+   #:db-checkbox))
+
+(in-package #:tui-widget-db-checkbox)
+
+
+
+(defclass db-checkbox (checkbox)
+  ((data :initarg :data :accessor data)))
+
+(defmethod checked ((cb db-checkbox))
+  (text (data cb)))
+
+(defmethod (setf checked) (flag (cb db-checkbox))
+  (setf (text (data cb)) flag))
+
+
+
+(defmethod create-widget ((type (eql 'db-checkbox)) parent y x &rest args
+                          &key data &allow-other-keys)
+  (assert data (data) "DATA must be specified.")
+  (let ((inst (apply 'create-widget 'checkbox parent y x args)))
+    (change-class inst 'db-checkbox :data data)))