From ee019613439f2a1ca9d6e5b96daa70ce0ee8ecda Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 29 Sep 2008 08:17:33 +0000
Subject: [PATCH] startlazarus: cleanup

git-svn-id: trunk@16786 -
---
 ide/lazarusmanager.pas | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/ide/lazarusmanager.pas b/ide/lazarusmanager.pas
index 9b6c9df91f..b059d40008 100644
--- a/ide/lazarusmanager.pas
+++ b/ide/lazarusmanager.pas
@@ -111,7 +111,6 @@ type
     FLazarusPID: Integer;
     FCmdLineParams: TStrings;
     FShowSplashOption: boolean;
-    function GetLazarusPath(const FileName: string): string;
     function RenameLazarusExecutable(const Directory: string): TModalResult;
     procedure LazarusProcessStart(Sender: TObject);
     procedure WaitForLazarus;
@@ -132,18 +131,6 @@ begin
   inherited Destroy;
 end;
 
-function TLazarusManager.GetLazarusPath(const FileName: string) : string;
-begin
-  // first try in the bin dir of the primary config directory
-  Result := AppendPathDelim(GetPrimaryConfigPath) + 'bin' + PathDelim +
-    FileName + GetExeExt;
-  // if no lazarus executable exists in that directory, try the same directory
-  // as the startlazarus executable
-  if not FileExistsUTF8(Result) then
-    Result := AppendPathDelim(ExtractFilePath(ExpandFileNameUTF8(ParamStrUTF8(0)))) +
-      FileName + GetExeExt;
-end;
-
 function TLazarusManager.RenameLazarusExecutable(const Directory: string
   ): TModalResult;
 var