fpc compatibility fix

doc update git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@236 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2007-08-12 15:18:57 +00:00
parent 84af5e672b
commit ab89744bda
27 changed files with 425 additions and 519 deletions
--- a/wst/trunk/config_objects.pas
+++ b/wst/trunk/config_objects.pas
@ -92,6 +92,11 @@ function GetAppConfigDir(const AGlobal : Boolean) : string;
 begin
  Result := ExtractFilePath(ParamStr(0));
 end;
+
+function GetAppConfigFile(const AGlobal : Boolean) : string;
+begin
+  Result := ChangeFileExt(ParamStr(0),'.xml');
+end;
 {$ENDIF}

 function wst_GetConfigFileName():string;