Changeset main,37

Timestamp:

11/07/2007 05:12:27 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071107051227-wbmsan3mivf9n3qg

Message:

Return the value that the callback returns when not nil.
Force refresh on state change.

File:

• main/textbox.lisp (modified) (2 diffs)

main/textbox.lisp

@@ -41 +41 @@
     (erase window)
     (add-clipped-string window 0 (- scroll) (text data))
-    (setf (cursor-position window) (list 0 (screen-cp textbox)))))
+    (setf (cursor-position window) (list 0 (screen-cp textbox)))
+    (refresh window)))
 
 (defmethod (setf insertion-point) :around (i (textbox textbox))
@@ -113 +114 @@
            (t
             (if (or (keywordp key) (member key '(#\Return #\Tab #\Esc)))
-                (when (funcall callback key)
-                  (setf (insertion-point textbox) 0)
-                  (return-from activate-textbox))
+                (let ((r (funcall callback key)))
+                  (when r
+                    (setf (insertion-point textbox) 0)
+                    (return-from activate-textbox r)))
                 (multiple-value-bind (left right) (split textbox)
                   (setf (text data)