Changeset main,63 for main/widget/textbox.lisp

Timestamp:

11/17/2007 12:40:30 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071117004030-ov0o4jfbzl3b9vup

Message:

Allow for other callback-functions on ACTIVATE.

File:

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

main/widget/textbox.lisp

@@ -89 +89 @@
 
 
-(defmethod activate ((textbox textbox) &optional (callback 'nothing))
+(defmethod activate ((textbox textbox) &key (key-callback 'nothing)
+                     &allow-other-keys)
   (with-slots (data window active) textbox
     (setf active t)
@@ -119 +120 @@
                    (if (or (keywordp key)
                            (member key '(#\Return #\Newline #\Tab #\Esc)))
-                       (let ((r (funcall callback key)))
+                       (let ((r (funcall key-callback key)))
                          (when r
                            (setf (insertion-point textbox) 0)