Changeset main,44 for main/widget/textbox.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/widget/textbox.lisp (modified) (1 diff)

main/widget/textbox.lisp

@@ -102 +102 @@
                 (setf (insertion-point textbox) (insertion-point textbox)))))
            (t
-            (if (or (keywordp key) (member key '(#\Return #\Tab #\Esc)))
+            (if (or (keywordp key)
+                    (member key '(#\Return #\Newline #\Tab #\Esc)))
                 (let ((r (funcall callback key)))
                   (when r