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

Timestamp:

11/08/2007 11:26:33 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071108232633-o1pxoj710jjn381p

Message:

Forms may now be activated; they cycle through textboxes and auto-scroll.

File:

• main/form-test.lisp (modified) (1 diff)

main/form-test.lisp

@@ -47 +47 @@
              (progn
                (setf (scroll form) 4)
-               (tui-input:read-key w))
+               (activate form (lambda (key)
+                                (member key '(#\Esc #\Tab #\Return :key-f12)))))
           (destroy-form form))))))