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)