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

Modified Files: input-editor.lisp Log Message: Rebind *original-stream* when unreading gesture to prevent annoying bugs.

--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/04/30 21:27:46 1.47 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/05/24 12:00:29 1.48 @@ -634,7 +634,8 @@ (rescan-if-necessary stream) (return-from stream-process-gesture gesture)) (when (proper-gesture-p gesture) - (unread-gesture gesture :stream (encapsulating-stream-stream stream))) + (let ((*original-stream* (encapsulating-stream-stream stream))) + (unread-gesture gesture :stream (encapsulating-stream-stream stream)))) (read-gestures-and-act stream gesture type))

(defmethod reset-scan-pointer ((stream drei-input-editing-mixin)