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))