diff options
| author | Jose Alonso Cardenas Marquez <acm@FreeBSD.org> | 2018-08-07 07:06:04 +0000 |
|---|---|---|
| committer | Jose Alonso Cardenas Marquez <acm@FreeBSD.org> | 2018-08-07 07:06:04 +0000 |
| commit | f3c3dafa569b7d2fdd7913eba157438ec166e972 (patch) | |
| tree | 8c3269689f7bb52a93d8a2e3375a7d38eeb60949 /editors/picpas/files/patch-miconfig_MiConfigXML.pas | |
| parent | Update to 0.4.8 release. (diff) | |
- New port: editors/picpas
PicPas is a Pascal compiler, written in Lazarus, which generates executable
code for midrange PIC microcontrollers (the 16F series).
WWW: https://github.com/t-edson/PicPas
Differential Revision: https://reviews.freebsd.org/D15242
Diffstat (limited to 'editors/picpas/files/patch-miconfig_MiConfigXML.pas')
| -rw-r--r-- | editors/picpas/files/patch-miconfig_MiConfigXML.pas | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/editors/picpas/files/patch-miconfig_MiConfigXML.pas b/editors/picpas/files/patch-miconfig_MiConfigXML.pas new file mode 100644 index 000000000000..a3d261d04ba1 --- /dev/null +++ b/editors/picpas/files/patch-miconfig_MiConfigXML.pas @@ -0,0 +1,20 @@ +--- miconfig/MiConfigXML.pas 2018-04-26 21:42:01.343702000 -0500 ++++ miconfig/MiConfigXML.pas 2018-04-26 21:43:20.791884000 -0500 +@@ -20,7 +20,7 @@ + {$mode objfpc}{$H+} + interface + uses +- Classes, SysUtils, Graphics, Forms, Laz2_XMLCfg, MisUtils, MiConfigBasic; ++ Classes, SysUtils, Graphics, Forms, Laz2_XMLCfg, MisUtils, MiConfigBasic, LazFileUtils, LazUTF8; + type + { TMiConfigXML } + {Clase base que es usada para manejar los campos de configuración.} +@@ -75,7 +75,7 @@ + function TMiConfigXML.DefaultFileName: string; + {Devuelve el nombre por defecto del archvio de configuración} + begin +- Result := ChangeFileExt(Application.ExeName,'.xml'); ++ Result := ChangeFileExt(GetEnvironmentVariableUTF8('HOME')+'/.config/PicPas/'+Application.ExeName,'.xml'); + end; + procedure TMiConfigXML.VerifyFile; + //Verifica si el archivo XML "FileName" existe. Si no, muestra un mensaje y lo crea. |