Changeset main,47 for main/form-test.lisp

Timestamp:

11/12/2007 08:45:41 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@tux-20071112204541-jhhqab8g511tp3xv

Message:

Added color to forms.

File:

• main/form-test.lisp (modified) (1 diff)

main/form-test.lisp

@@ -7 +7 @@
 
 
-(defform test ((:label 0 0 "Family name:")
-               (:textbox 0 13 family-name 16)
-               (:label 1 0 " Given name:")
-               (:textbox 1 13 given-name 16)
-               (:label 2 0 "        Age:")
-               (:numberbox 2 13 age 2)))
+(defform test (:inactive-widget-background (#\Space 60)
+               :active-widget-background (#\Space 57))
+  (:label 0 0 "Family name:")
+  (:textbox 0 13 family-name 16
+            :inactive-background (#\Space 6)
+            :active-background (#\Space 3))
+  (:label 1 0 " Given name:")
+  (:textbox 1 13 given-name 16)
+  (:label 2 0 "        Age:")
+  (:numberbox 2 13 age 2))
 
 (defclass test ()