[mcclim-cvs] CVS mcclim/ESA

[crhodes]

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)))