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: Crash when loading tabs (bug [3154521]).

Browse source
This commit is contained in:
cobines 2011-01-13 05:58:48 +00:00
commit d3f2a462c9
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/fmain.pas
View file

@ -3412,7 +3412,8 @@ var
procedure ToggleWatcher(FileView: TFileView; var Watcher: TFileSystemWatcher; AnOwner: TComponent);
begin
if (WatchFilter <> []) and Assigned(FileView.FileSource) and
if (WatchFilter <> []) and
Assigned(FileView) and Assigned(FileView.FileSource) and
(FileView.FileSource.IsClass(TFileSystemFileSource)) then
begin
if not Assigned(Watcher) then

4
src/newdesign/ufileview.pas
View file

@ -403,7 +403,7 @@ end;
procedure TFileView.SetCurrentPath(NewPath: String);
begin
if BeforeChangePath(FileSource, NewPath) then
if (NewPath <> CurrentPath) and BeforeChangePath(FileSource, NewPath) then
begin
FHistory.AddPath(NewPath); // Sets CurrentPath.
AfterChangePath;
@ -948,4 +948,4 @@ begin
end;
end.