[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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