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

Modified Files: drei-redisplay.lisp Log Message: Removed some seemingly unnecessary code from the input-editor Drei variant. I admit I never really fully grasped how it worked, and I may need someone with major output-record foo to help me figure out the last bugs.

--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/15 19:31:54 1.36 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/16 12:01:05 1.37 @@ -990,19 +990,9 @@ (defmethod replay-output-record ((drei drei-area) (stream extended-output-stream) &optional (x-offset 0) (y-offset 0) (region +everywhere+)) (declare (ignore x-offset y-offset region)) - (letf (((stream-current-output-record stream) drei) - ((stream-cursor-position stream) (values-list (input-editor-position drei)))) - ;; XXX: If the display begins with a blank area - for example - ;; spaces - CLIM will (rightly) think the output records - ;; position is at the first output. This is not good, because - ;; it means that the output record will "walk" across the - ;; screen if the buffer starts with blanks. Therefore, we make - ;; sure that an output record exists at the very beginning of - ;; the output. - (with-new-output-record (stream 'standard-sequence-output-record record) - (invalidate-all-strokes (view drei)) - (display-drei-view-contents stream (view drei)) - (setf (output-record-position record) (values-list (input-editor-position drei)))))) + (letf (((stream-cursor-position stream) (values-list (input-editor-position drei)))) + (invalidate-all-strokes (view drei)) + (display-drei-view-contents stream (view drei))))

(defmethod replay-output-record :after ((drei drei-area) (stream extended-output-stream) &optional (x-offset 0) (y-offset 0) (region +everywhere+)) @@ -1014,10 +1004,9 @@ (x-offset 0) (y-offset 0) (region +everywhere+)) (declare (ignore x-offset y-offset region)) (clear-output-record cursor) - (when (active cursor) - (with-output-recording-options (stream :record t :draw nil) - (letf (((stream-current-output-record stream) cursor)) - (display-drei-view-cursor stream (view cursor) cursor))))) + (with-output-recording-options (stream :record t :draw nil) + (when (active cursor) + (display-drei-view-cursor stream (view cursor) cursor))))

(defun display-drei-area (drei) (with-accessors ((stream editor-pane) (view view)) drei