Changeset main,46 for main/widget/numberbox-test.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/numberbox-test.lisp (modified) (2 diffs)

main/widget/numberbox-test.lisp

@@ -12 +12 @@
 
 
+(defun create-nb (window row name)
+  (create-numberbox window row 10 name 10
+                    :inactive-background '(#\Space 60)
+                    :active-background '(#\Space 57)))
+
 (defun test ()
   (with-screen (s)
@@ -17 +22 @@
            (data2 (make-instance 'data))
            (data3 (make-instance 'data))
-           (nbs (list (create-numberbox s 10 10 data1 10)
-                      (create-numberbox s 11 10 data2 10)
-                      (create-numberbox s 12 10 data3 10))))
+           (nbs (list (create-nb s 10 data1)
+                      (create-nb s 11 data2)
+                      (create-nb s 12 data3))))
       (setf (cdddr nbs) nbs)
       (refresh s)