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

Timestamp:

11/12/2007 07:08:49 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@tux-20071112190849-f4iha3mmvx2nskce

Message:

Textboxes and numberboxes now change colors.

File:

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

main/widget/generic.lisp

@@ -1 +1 @@
 (defpackage #:tui-widget-generic
   (:use #:cl)
-  (:export #:text #:widget #:parent-window #:column #:row #:scroll
-           #:insertion-point #:destroy #:draw #:activate))
+  (:export #:text #:widget #:parent-window #:column #:row #:inactive-background
+           #:active-background #:scroll #:insertion-point #:destroy #:draw
+           #:activate))
 
 (in-package #:tui-widget-generic)
@@ -23 +24 @@
   ((parent-window :initarg :parent-window)
    (column :type (integer 0) :initarg :column)
-   (row :type (integer 0) :initarg :row)))
+   (row :type (integer 0) :initarg :row)
+   ;; TODO: initform for bg-color
+   (inactive-background :initarg :inactive-background)
+   (active-background :initarg :active-background)))
 
 (defclass scroll ()