cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- fixed excessive page scrolling in message window.

Browse Source
This commit is contained in:
cage 2022-07-08 15:17:01 +02:00
parent b0eccdc0af
commit 1110bf809d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/message-window.lisp
View File

@ -611,11 +611,15 @@
(defmethod scroll-next-page ((object message-window))
(with-accessors ((rows rows)
(row-selected-index row-selected-index)) object
(let ((actual-window-height (win-height-no-border object)))
(when (and (> (- (rows-length object)
row-selected-index)
(let ((actual-window-height (1- (win-height-no-border object)))
(rows-length (rows-length object)))
(when (and (> (- rows-length
row-selected-index)
actual-window-height)
(/= (row-move object actual-window-height)
(/= (row-move object (min actual-window-height
(- rows-length
(+ row-selected-index
actual-window-height))))
0))
(draw object)))))