Index: main/form-test.lisp
===================================================================
--- main/form-test.lisp	(revision main,44)
+++ main/form-test.lisp	(revision main,45)
@@ -7,27 +7,14 @@
 
 
-(defform test
-    ((:textbox 0 0 tb0 8)
-     (:textbox 1 0 tb1 8)
-     (:textbox 2 0 tb2 8)
-     (:textbox 3 0 tb3 8)
-     (:textbox 4 0 tb4 8)
-     (:textbox 5 0 tb5 8)
-     (:textbox 6 0 tb6 8)
-     (:textbox 7 0 tb7 8)))
+(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)))
 
 (defclass test ()
   ((table :type hash-table :initform (make-hash-table :test #'equal))))
 
-(defmethod initialize-instance :after ((test test) &key &allow-other-keys)
-  (with-slots (table) test
-    (setf (gethash 'tb0 table) "Now")
-    (setf (gethash 'tb1 table) "is")
-    (setf (gethash 'tb2 table) "the")
-    (setf (gethash 'tb3 table) "time")
-    (setf (gethash 'tb4 table) "for")
-    (setf (gethash 'tb5 table) "all")
-    (setf (gethash 'tb6 table) "good")
-    (setf (gethash 'tb7 table) "men!")))
 
 
@@ -39,4 +26,6 @@
   (with-slots (table) test
     (setf (gethash name table) value)))
+
+
 
 (defun test ()