Commit 497afdba authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Fixed redisplay issue for typeout views.

parent 47b507e5
...@@ -53,16 +53,20 @@ record history.")) ...@@ -53,16 +53,20 @@ record history."))
(call-next-method))) (call-next-method)))
(defmethod display-drei-view-contents ((pane pane) (view typeout-view)) (defmethod display-drei-view-contents ((pane pane) (view typeout-view))
(when (or (dirty view)
(with-output-recording-options (pane :record nil :draw t) (not (eq (output-record-parent (output-history view))
(with-bounding-rectangle* (x1 y1 x2 y2) (or (pane-viewport pane) (stream-output-history pane))))
pane) (with-output-recording-options (pane :record nil :draw t)
(draw-rectangle* pane x1 y1 x2 y2 :ink +background-ink+)) (with-bounding-rectangle* (x1 y1 x2 y2) (or (pane-viewport-region pane)
(replay-output-record (output-history view) pane)) (sheet-region pane))
(unless (eq (output-record-parent (output-history view)) (draw-rectangle* pane x1 y1 x2 y2 :ink +background-ink+))
(stream-output-history pane)) (replay-output-record (output-history view) pane
(setf (output-record-parent (output-history view)) nil) (or (pane-viewport-region pane)
(add-output-record (output-history view) (stream-output-history pane))) (sheet-region pane))))
(unless (eq (output-record-parent (output-history view))
(stream-output-history pane))
(setf (output-record-parent (output-history view)) nil)
(add-output-record (output-history view) (stream-output-history pane))))
(setf (dirty view) nil)) (setf (dirty view) nil))
(defmethod bounding-rectangle* ((view typeout-view)) (defmethod bounding-rectangle* ((view typeout-view))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment