Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv6699/Drei

Modified Files: drei-clim.lisp Log Message: Never let Drei have itself as the minibuffer.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2006/11/08 13:08:12 1.2 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2006/11/10 16:46:51 1.3 @@ -352,7 +352,9 @@ #+(or mcclim building-mcclim) (climi::arm-gadget drei t)))

(defmethod execute-drei-command ((drei drei-gadget-pane) command) - (let* ((*minibuffer* (or *minibuffer* *standard-input*))) + (let* ((*minibuffer* (or *minibuffer* + (unless (eq drei *standard-input*) + *standard-input*)))) (accepting-from-user (drei) (execute-drei-command-for-frame (pane-frame drei) drei command))))