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)