Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv16608/ESA Modified Files: esa.lisp Log Message: New click-to-focus policy for text-editor gadgets and panes, implemented for the CLX, Null and gtkairo backends (but gtk_window_get_focus() hand-inserted into gtkairo/ffi.lisp). PORT-KEYBOARD-INPUT-FOCUS is now a trampoline to PORT-FRAME-KEYBOARD-INPUT-FOCUS, a per-port function to set the keyboard focus for a particular frame. Not implemented for Beagle or OpenGL backends. Now Drei / Goatee gadgets don't have to do their own keyboard focus handling on arm/disarm any more. Various kludges sprinkled all over the place to make this so. --- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2006/12/10 00:08:30 1.4 +++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2007/02/07 12:44:21 1.5 @@ -119,10 +119,10 @@ ;; error: there's no feedback, unlike emacs' quite nice "[no ;; match]". (loop - (handler-case - (return (call-next-method)) - (parse-error () - nil)))) + (handler-case + (with-input-focus (pane) + (return (call-next-method))) + (parse-error () nil)))) (defmethod stream-accept ((pane minibuffer-pane) type &rest args &key (view (stream-default-view pane))