Changeset main,84 for main/widget/generic.lisp

Timestamp:

01/18/2008 09:25:03 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20080118212503-b91qub445w8qrw4h

Message:

• Added checkbox and data-bound checkbox (db-checkbox) widgets.
• CREATE-WIDGET for more flexible widget creation.

File:

• main/widget/generic.lisp (modified) (3 diffs)

main/widget/generic.lisp

@@ -2 +2 @@
   (: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 +26 @@
    (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 +39 @@
 
 
+(defgeneric create-widget (type parent y x &key &allow-other-keys))
+
 (defgeneric destroy (widget))