forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

prevent calling dastworx on closing a page

This commit is contained in:
Stian Gulpen 2019-12-01 13:53:33 +01:00
parent d3ec00991e
commit 3ad97b3dc2
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/u_symlist.pas
View File

@ -573,7 +573,8 @@ procedure TSymbolListWidget.docClosing(document: TDexedMemo);
begin begin
if fDoc <> document then if fDoc <> document then
exit; exit;
if fToolProc.Running then
fToolProc.Terminate(0);
fDoc := nil; fDoc := nil;
clearTree; clearTree;
updateVisibleCat; updateVisibleCat;

7
src/u_todolist.pas
View File

@ -347,7 +347,8 @@ begin
exit; exit;
fDoc := nil; fDoc := nil;
if Visible and fAutoRefresh then if Visible and fAutoRefresh then
callToolProcess; clearTodoList;
killToolProcess();
end; end;
{$ENDREGION} {$ENDREGION}
@ -399,7 +400,7 @@ begin
exit(tcFile); exit(tcFile);
if (fProj <> nil) and fDoc.isNil then if (fProj <> nil) and fDoc.isNil then
exit(tcProject); exit(tcProject);
//
if fProj.isSource(fDoc.fileName) then if fProj.isSource(fDoc.fileName) then
exit(tcProject) exit(tcProject)
else else
@ -410,7 +411,7 @@ procedure TTodoListWidget.killToolProcess;
begin begin
if fToolProc.isNil then if fToolProc.isNil then
exit; exit;
//
fToolProc.Terminate(0); fToolProc.Terminate(0);
fToolProc.Free; fToolProc.Free;
fToolProc := nil; fToolProc := nil;