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: Exception if file "user-dirs.dirs" does not exists

Browse source
This commit is contained in:
Alexander Koblov 2010-12-03 21:50:44 +00:00
commit b752ead75f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/platform/unix/ushellcontextmenu.pas
View file

@ -77,8 +77,10 @@ begin
Result:= False;
try
Items:= nil;
templateDir:= GetHomeDir + '.config/user-dirs.dirs';
if not mbFileExists(templateDir) then Exit;
userDirs:= TStringList.Create;
userDirs.LoadFromFile(GetHomeDir + '.config/user-dirs.dirs');
userDirs.LoadFromFile(templateDir);
templateDir:= userDirs.Values['XDG_TEMPLATES_DIR'];
if Length(templateDir) = 0 then Exit;
templateDir:= IncludeTrailingPathDelimiter(mbExpandFileName(TrimQuotes(templateDir)));