[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-clim.lisp 
Log Message:
Explicitly rebind *standard-input* for Drei gadget panes.

Some truly non-CLIM-like applications may never define an interactor
or anything like that, and so may inherit the *standard-input* from
SLIME or something like that.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/01/31 16:50:07	1.39
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/02/01 17:10:53	1.40
@@ -288,7 +288,8 @@
 
 (defmethod handle-gesture ((drei drei-gadget-pane) gesture)
   (let ((*command-processor* drei)
-        (*abort-gestures* *esa-abort-gestures*))
+        (*abort-gestures* *esa-abort-gestures*)
+        (*standard-input* drei))
     (accepting-from-user (drei)
       (handler-case (process-gesture drei gesture)
         (unbound-gesture-sequence (c)