Changeset main,79 for main

Timestamp:

12/05/2007 09:00:41 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071205210041-8w01ejyuj7jy3pxm

Message:

Can now use variables to name form entries.

Location:

main

Files:

• form-test.lisp (modified) (2 diffs)
• form.lisp (modified) (2 diffs)

main/form-test.lisp

@@ -10 +10 @@
                :active-widget-background (#\Space 57))
   (:label 0 0 "Family name:")
-  (:textbox 0 13 family-name 16
+  (: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)
+  (:textbox 1 13 'given-name 16)
   (:label 2 0 "        Age:")
-  (:numberbox 2 13 age 2))
+  (:numberbox 2 13 'age 2))
 
 (defclass test ()
@@ -40 +40 @@
              (progn
                (setf (scroll form) 4)
-               (activate form (lambda (key)
-                                (member key '(#\Esc #\Tab #\Return :key-f12)))))
+               (activate form :key-callback
+                         (lambda (key)
+                           (member key '(#\Esc #\Tab #\Return :key-f12)))))
           (destroy-form form))))))

main/form.lisp

@@ -61 +61 @@
                           *default-active-widget-background*))
   `(make-instance 'textbox-def
-                  :row ,row :column ,column :name ',name
+                  :row ,row :column ,column :name ,name
                   :display-width ,display-width :data-width ,data-width
                   :read-only ,read-only
@@ -76 +76 @@
                             *default-active-widget-background*))
   `(make-instance 'numberbox-def
-                  :row ,row :column ,column :name ',name
+                  :row ,row :column ,column :name ,name
                   :display-width ,display-width :data-width ,data-width
                   :precision ,precision :read-only ,read-only