freebsd-ports/x11-fm/doublecmd/files/patch-src_uGlobsPaths.pas
Beñat Gonzalez Etxepare 37e5d724fe x11-fm/doublecmd: Update to 1.0.1
* Switch to use USE_GITHUB
* Update WWW
* Pet portlint and portclippy
* Re-format Makefile with portfmt

ChangeLog:	https://github.com/doublecmd/doublecmd/wiki/Changes-in-version-1.0.0
PR:		259585
2021-11-06 22:19:07 +09:00

28 lines
1.1 KiB
ObjectPascal

--- src/uGlobsPaths.pas.orig 2017-12-11 10:45:31 UTC
+++ src/uGlobsPaths.pas
@@ -3,7 +3,7 @@ unit uGlobsPaths;
interface
var
- gpExePath : String = ''; // executable directory
+ gpExePath : String = '%%DATADIR%%/'; // executable directory
gpCfgDir : String = ''; // directory from which configuration files are used
gpGlobalCfgDir : String = ''; // config dir global for all user
gpCmdLineCfgDir : String = ''; // config dir passed on the command line
@@ -11,6 +11,7 @@ var
gpPixmapPath : String = ''; // path to pixmaps
gpHighPath : String = ''; // editor highlighter directory
gpThumbCacheDir : String = ''; // thumbnails cache directory
+ gpDocsDir : String = '%%DOCSDIR%%/'; // directory for help files
//Global Configuration Filename
const
@@ -37,7 +38,7 @@ end;
procedure LoadPaths;
begin
OnGetApplicationName := @GetAppName;
- gpExePath := ExtractFilePath(TryReadAllLinks(ParamStrU(0)));
+ //gpExePath := ExtractFilePath(TryReadAllLinks(ParamStrU(0)));
DCDebug('Executable directory: ', gpExePath);
gpGlobalCfgDir := gpExePath;