From 280e661bef573d36326494ef1241d58bd1f57d5d Mon Sep 17 00:00:00 2001
From: vsnijders <vsnijders@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 5 Mar 2007 07:29:39 +0000
Subject: [PATCH] TLogEntry.GetFileList takes an optional parameter BaseDir

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@116 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/svn/svnclasses.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/components/svn/svnclasses.pas b/components/svn/svnclasses.pas
index 3070ea34c..eb78bb19c 100644
--- a/components/svn/svnclasses.pas
+++ b/components/svn/svnclasses.pas
@@ -149,11 +149,11 @@ type
     function GetLogPath(index: integer): TLogPath;
     function GetLogPathCount: integer;
     procedure LoadFromNode(ANode: TDOMElement);
-    procedure SortPaths;
   public
     constructor Create;
     destructor Destroy; override;
-    function GetFileList: TStrings;
+    function GetFileList(const BaseDir: string = ''): TStrings;
+    procedure SortPaths;
     property Author: string read FAuthor write FAuthor;
     property CommonPath: string read GetCommonPath;
     property Date: string read  FDate write FDate;
@@ -460,13 +460,13 @@ begin
   end;
 end;
 
-function TLogEntry.GetFileList: TStrings;
+function TLogEntry.GetFileList(const BaseDir: string = ''): TStrings;
 var
   i: integer;
 begin
   Result := TStringList.Create;
   for i:= 0 to PathCount -1 do
-    Result.Add(Path[i].Path);
+    Result.Add(BaseDir + Path[i].Path);
 end;
 
 function TLogEntry.GetLogPathCount: integer;
@@ -596,6 +596,7 @@ begin
   Lines := TStringList.Create;
   try
     Lines.LoadFromStream(s);
+    writeln(Lines.Text);
     i := 0;
     while (i<Lines.Count) do begin
       Line := Lines[i];