[mcclim-cvs] CVS mcclim/ESA

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/ESA
In directory cl-net:/tmp/cvs-serv23835

Modified Files:
	esa.lisp 
Log Message:
When processing gestures for a command-processor, bind *standard-input* 
to the ESA *minibuffer* if it is available before reading commands.  

Otherwise when using a Drei gadget pane, the prompt goes to the gadget 
itself (and nothing at all seems to be able to read keyboard input...)


--- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2008/05/18 09:24:06	1.25
+++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2009/02/17 14:17:18	1.26
@@ -697,17 +697,18 @@
                       (eq (command-menu-item-type item) :command))
                   (let ((command (if (commandp item) item
                                      (command-menu-item-value item)))
-                        (*current-gesture* (first (last gestures))))
+                        (*current-gesture* (first (last gestures)))
+                        (*standard-input* (or *minibuffer* *standard-input*)))
                     (unless (consp command)
                       (setf command (list command)))
                     ;; Call `*partial-command-parser*' to handle numeric
                     ;; argument.
-                    (unwind-protect (setq command
-                                          (funcall
-                                           *partial-command-parser*
-                                           (command-table command-processor)
-                                           *standard-input* command 0 (when prefix-p
-                                                                        prefix-arg)))
+                    (unwind-protect 
+                         (setq command
+                               (funcall *partial-command-parser*
+                                        (command-table command-processor)
+                                        *standard-input*
+                                        command 0 (when prefix-p prefix-arg)))
                       ;; If we are macrorecording, store whatever the user
                       ;; did to invoke this command.
                       (when (recordingp command-processor)