Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
climacs
climacs
Commits
497afdba
Commit
497afdba
authored
Jan 21, 2008
by
Troels Henriksen
Browse files
Fixed redisplay issue for typeout views.
parent
47b507e5
Changes
1
Show whitespace changes
Inline
Side-by-side
typeout.lisp
View file @
497afdba
...
...
@@ -53,16 +53,20 @@ record history."))
(
call-next-method
)))
(
defmethod
display-drei-view-contents
((
pane
pane
)
(
view
typeout-view
))
(
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
pane
)
pane
)
(
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
))
(
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
)))
(
add-output-record
(
output-history
view
)
(
stream-output-history
pane
)))
)
(
setf
(
dirty
view
)
nil
))
(
defmethod
bounding-rectangle*
((
view
typeout-view
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment