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

Fixed redisplay issue for typeout views.

parent 47b507e5
......@@ -53,16 +53,20 @@ record history."))
(call-next-method)))
(defmethod display-drei-view-contents ((pane pane) (view typeout-view))
(with-output-recording-options (pane :record nil :draw t)
(with-bounding-rectangle* (x1 y1 x2 y2) (or (pane-viewport pane)
pane)
(draw-rectangle* pane x1 y1 x2 y2 :ink +background-ink+))
(replay-output-record (output-history view) 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)))
(when (or (dirty view)
(not (eq (output-record-parent (output-history view))
(stream-output-history pane))))
(with-output-recording-options (pane :record nil :draw t)
(with-bounding-rectangle* (x1 y1 x2 y2) (or (pane-viewport-region pane)
(sheet-region pane))
(draw-rectangle* pane x1 y1 x2 y2 :ink +background-ink+))
(replay-output-record (output-history view) pane
(or (pane-viewport-region 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))
(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