[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)