cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [gemini] forced redraw of the window when rendering a new gemini stream.

This commit is contained in:
cage 2021-06-27 13:27:15 +02:00
parent 5e3c19811b
commit 6ffb2c5cc1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/program-events.lisp
View File

@ -1164,8 +1164,9 @@
(multiple-value-bind (x start length) (multiple-value-bind (x start length)
(message-window:visible-rows win) (message-window:visible-rows win)
(declare (ignore x)) (declare (ignore x))
(when (< (+ start length) (when (or (not append-text)
(windows:win-height-no-border win)) (< (+ start length)
(windows:win-height-no-border win)))
(windows:draw win)))))))) (windows:draw win))))))))
(defclass gemini-abort-downloading-event (program-event) ()) (defclass gemini-abort-downloading-event (program-event) ())