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

Timestamp:

11/09/2007 12:29:19 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071109002919-u3q6f17xwbxvy3b0

Message:

Added numberbox support to forms.
Fixed indentation of defform and added documentation.
Fix: Labels weren't being pushed to the screen.
Fix: (activate label) should return something useful to the form.

File:

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

main/form-test.lisp

@@ -7 +7 @@
 
 
-(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 +26 @@
   (with-slots (table) test
     (setf (gethash name table) value)))
+
+
 
 (defun test ()