diff options
Diffstat (limited to 'Libraries/Drei/drei-redisplay.lisp')
-rw-r--r-- | Libraries/Drei/drei-redisplay.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Libraries/Drei/drei-redisplay.lisp b/Libraries/Drei/drei-redisplay.lisp index 20b94f6b..2f62033a 100644 --- a/Libraries/Drei/drei-redisplay.lisp +++ b/Libraries/Drei/drei-redisplay.lisp @@ -719,7 +719,7 @@ type (found via `presentation-type-of') to generate output." (setf (output-record-position output-record) (values (+ cursor-x 0.1) (- cursor-y baseline))) (when draw - (replay output-record stream)) + (dispatch-repaint stream output-record)) (setf (aref widths 1) width) (record-stroke stroke parts widths cursor-x (- cursor-y baseline) @@ -1090,14 +1090,11 @@ calculated by `drei-bounding-rectangle*'." (defmethod replay-output-record ((cursor drei-cursor) stream &optional (x-offset 0) (y-offset 0) (region +everywhere+)) (declare (ignore x-offset y-offset region)) - (with-output-recording-options (stream :record t :draw t) - (display-drei-view-cursor stream (view cursor) cursor))) + (display-drei-view-cursor stream (view cursor) cursor)) (defun display-drei-area (drei) (with-accessors ((stream editor-pane) (view view)) drei (with-bounding-rectangle* (old-x1 old-y1 old-x2 old-y2) drei - (with-output-recording-options (stream :draw nil) - (replay drei stream)) (with-bounding-rectangle* (new-x1 new-y1 new-x2 new-y2) drei (unless (or (and (= new-x1 old-x1) (= new-y1 old-y2) (= new-x2 old-x2) (= new-y2 old-y2)) |