Changeset main,79 for main/form.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.lisp (modified) (2 diffs)

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