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

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.

File:

• main/form-test.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))))))