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

FIX: Execute modal operation if one free operation is already running

Browse source
This commit is contained in:
Alexander Koblov 2016-03-19 13:54:12 +00:00
commit 7ca8777771
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/uoperationsmanager.pas
View file

@ -38,9 +38,9 @@ type
const
InvalidOperationHandle = TOperationHandle(0);
ModalQueueId = Low(TOperationsManagerQueueIdentifier);
FreeOperationsQueueId = 0;
SingleQueueId = 1; // TODO: Hard-coded for now
ModalQueueId = Pred(FreeOperationsQueueId);
SingleQueueId = Succ(FreeOperationsQueueId);
type
TOperationsManagerQueue = class;
@ -514,7 +514,7 @@ end;
function TOperationsManagerQueue.IsFree: Boolean;
begin
Result := FIdentifier = FreeOperationsQueueId;
Result := (FIdentifier = FreeOperationsQueueId) or (FIdentifier = ModalQueueId);
end;
procedure TOperationsManagerQueue.Pause;
@ -701,7 +701,7 @@ begin
Result := Item.Handle;
Item.SetQueue(GetOrCreateQueue(FreeOperationsQueueId), False);
Item.SetQueue(GetOrCreateQueue(ModalQueueId), False);
NotifyEvents(Item, [omevOperationAdded]);