Index: main/form-test.lisp
===================================================================
--- main/form-test.lisp	(revision main,47)
+++ main/form-test.lisp	(revision main,79)
@@ -10,11 +10,11 @@
                :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,5 +40,6 @@
              (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))))))
Index: main/form.lisp
===================================================================
--- main/form.lisp	(revision main,78)
+++ main/form.lisp	(revision main,79)
@@ -61,5 +61,5 @@
                           *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,5 +76,5 @@
                             *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