Index: main/widget/textbox.lisp
===================================================================
--- main/widget/textbox.lisp	(revision main,46)
+++ main/widget/textbox.lisp	(revision main,63)
@@ -89,5 +89,6 @@
 
 
-(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,5 +120,5 @@
                    (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)