From b8d7af915cc14f6466dd8d4f2ca9d038cbe3379a Mon Sep 17 00:00:00 2001 From: cage Date: Thu, 31 Dec 2020 11:54:40 +0100 Subject: [PATCH] - made scheduled updating of chat messages happening only when a chat window is shown This changes should make the program more responsive when scrolling the text of the main window. --- src/scheduled-events.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/scheduled-events.lisp b/src/scheduled-events.lisp index ac6cfe1..b5fb3b3 100644 --- a/src/scheduled-events.lisp +++ b/src/scheduled-events.lisp @@ -37,8 +37,8 @@ (gen-scheduler-function (refresh-refresh-all-chats-messages +refresh-all-chats-messages-frequency+) - (ui:update-all-chats-messages) (when (message-window:display-chat-p *message-window*) + (ui:update-all-chats-messages) (let ((show-event (make-instance 'program-events:chat-show-event :chat (message-window:metadata *message-window*)))) (program-events:push-event show-event))))