Changeset main,36 for main

Timestamp:

11/06/2007 04:20:29 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071106162029-m13nua6uabv5zsyk

Message:

Move insertion point to end on activation, and beginning on deactivation.
Callback is optional; default does nothing.

File:

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

main/textbox.lisp

@@ -85 +85 @@
               (subseq s insertion-point (length s))))))
 
-(defun activate-textbox (textbox callback)
+(defun nothing (dummy)
+  (declare (ignore dummy)))
+
+(defun activate-textbox (textbox &optional (callback 'nothing))
   (with-slots (data window) textbox
     (cdk::c-keypad (window-pointer window) t)
+    (setf (insertion-point textbox) :end)
     (loop
        (let ((key (read-key window)))
@@ -110 +114 @@
             (if (or (keywordp key) (member key '(#\Return #\Tab #\Esc)))
                 (when (funcall callback key)
+                  (setf (insertion-point textbox) 0)
                   (return-from activate-textbox))
                 (multiple-value-bind (left right) (split textbox)