Index: main/form-test.lisp
===================================================================
--- main/form-test.lisp	(revision main,43)
+++ main/form-test.lisp	(revision main,44)
@@ -47,4 +47,5 @@
              (progn
                (setf (scroll form) 4)
-               (tui-input:read-key w))
+               (activate form (lambda (key)
+                                (member key '(#\Esc #\Tab #\Return :key-f12)))))
           (destroy-form form))))))