[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	input-editor.lisp 
Log Message:
Removed stale hack.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/02/08 11:17:08	1.42
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/02/08 11:29:17	1.43
@@ -625,15 +625,9 @@
     (setf (activation-gesture stream) gesture)
     (rescan-if-necessary stream)
     (return-from stream-process-gesture gesture))
-  ;; XXX: The problem is that `*original-stream*' is a subclass of
-  ;; DREI-INPUT-EDITING-MIXIN (`stream', actually) at this point,
-  ;; which has an array as input buffer (as demanded by the spec),
-  ;; while the `stream-unread-gesture' method expects an event queue.
-  (let ((*original-stream* nil)
-        (*standard-input* (encapsulating-stream-stream stream)))
-    (when (proper-gesture-p gesture)
-      (unread-gesture gesture))
-    (read-gestures-and-act stream gesture type)))
+  (when (proper-gesture-p gesture)
+    (unread-gesture gesture :stream (encapsulating-stream-stream stream)))
+  (read-gestures-and-act stream gesture type))
 
 (defmethod reset-scan-pointer ((stream drei-input-editing-mixin)
 			       &optional (scan-pointer 0))