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

- prevented crash truncating the scaled width of tags window.

This commit is contained in:
cage 2021-01-24 14:53:43 +01:00
parent 3daf205dd8
commit c75efe0638
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/tags-window.lisp
View File

@ -67,7 +67,7 @@
(new-messages-mark new-messages-mark)) object
(win-clear object)
(with-croatoan-window (croatoan-window object)
(let ((histogram-width (* 2/3 (win-width-no-border object))))
(let ((histogram-width (truncate (* 2/3 (win-width-no-border object)))))
(loop
for y from (+ 2 top-row-padding) by single-row-height
for row-fields in (mapcar #'fields rows) do