Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv6101

Modified Files: esa.lisp Log Message: Take input focus when reading gestures for help; This fixes the ESA help commands when a Drei gadget pane is being used.

(It might be that accepting a gesture would be better, at which point the stream-accept method would kick in automatically).

--- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2007/02/21 12:35:36 1.6 +++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp 2007/05/23 14:41:48 1.7 @@ -1040,14 +1040,14 @@ :width 400))

(defun read-gestures-for-help (command-table) - (loop for gestures = (list (esa-read-gesture)) - then (nconc gestures (list (esa-read-gesture))) - for item = (find-gestures-with-inheritance gestures command-table) - unless item - do (return (values nil gestures)) - when (eq (command-menu-item-type item) :command) - do (return (values (command-menu-item-value item) - gestures)))) + (with-input-focus (t) + (loop for gestures = (list (esa-read-gesture)) + then (nconc gestures (list (esa-read-gesture))) + for item = (find-gestures-with-inheritance gestures command-table) + unless item + do (return (values nil gestures)) + when (eq (command-menu-item-type item) :command) + do (return (values (command-menu-item-value item) gestures)))))

(defun describe-key-briefly (pane) (let ((command-table (command-table pane)))