paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 04:17:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove unused method TMainIDE.DoReplaceUnitUse.

Browse Source 
git-svn-id: trunk@45458 -
This commit is contained in:
juha 2014-06-10 16:10:39 +00:00
parent 48944a68dc
commit 2fa952edff
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -924,9 +924,6 @@ type
procedure DoFindDeclarationAtCaret(const LogCaretXY: TPoint);
function DoFindRenameIdentifier(Rename: boolean): TModalResult;
function DoFindUsedUnitReferences: boolean;
function DoReplaceUnitUse(OldFilename, OldUnitName,
NewFilename, NewUnitName: string;
IgnoreErrors, Quiet, Confirm: boolean): TModalResult;
function DoShowAbstractMethods: TModalResult;
function DoRemoveEmptyMethods: TModalResult;
function DoRemoveUnusedUnits: TModalResult;
@ -13110,14 +13107,6 @@ begin
MainIDEBar.mnuMainMenu.ShortcutHandled := false;
end;
function TMainIDE.DoReplaceUnitUse(OldFilename, OldUnitName, NewFilename,
NewUnitName: string; IgnoreErrors, Quiet, Confirm: boolean): TModalResult;
// Replaces all references to a unit
begin
Result := SourceFileMgr.ReplaceUnitUse(OldFilename, OldUnitName, NewFilename,
NewUnitName, IgnoreErrors, Quiet, Confirm);
end;
procedure TMainIDE.StartProtocol;
begin
IDEProtocolOpts:=TIDEProtocol.Create;