cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-26 09:27:36 +01:00
Code Issues

- prevented crash truncating the scaled width of tags window.

Browse Source
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 (new-messages-mark new-messages-mark)) object
(win-clear object) (win-clear object)
(with-croatoan-window (croatoan-window 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 (loop
for y from (+ 2 top-row-padding) by single-row-height for y from (+ 2 top-row-padding) by single-row-height
for row-fields in (mapcar #'fields rows) do for row-fields in (mapcar #'fields rows) do