mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge d47e1b33ce into 54d6654ad1

Browse source
This commit is contained in:
EH 2026-06-19 07:26:41 +00:00 • committed by GitHub
commit b9125f7dac
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/filesources/ufilesourceoperation.pas
View file

@ -180,6 +180,13 @@ type
FUIResponse: TFileSourceOperationUIAnswer;
FTryAskQuestionResult: Boolean;
{en
Timestamp of last AppProcessMessages call (ms). Used to throttle
message-pumping when running on the main thread, to avoid O(n²)
overhead from inotify-triggered panel reloads with large file sets.
}
FLastProcessMessagesTime: QWord;
{en
Used to determine whether the operation has started or not.
}
@ -805,10 +812,21 @@ begin
end;
function TFileSourceOperation.AppProcessMessages(CheckState: Boolean): Boolean;
const
// Minimum ms between GTK event-queue pumps. Prevents O(n²) panel-reload
// overhead from inotify events when copying/deleting large file sets.
ThrottleIntervalMs = 100;
var
Ticks: QWord;
begin
if GetCurrentThreadId = MainThreadID then
begin
WidgetSet.AppProcessMessages;
Ticks := GetTickCount64;
if Ticks - FLastProcessMessagesTime >= ThrottleIntervalMs then
begin
FLastProcessMessagesTime := Ticks;
WidgetSet.AppProcessMessages;
end;
end;
if CheckState then
try