paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:00:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: rename identifier: open changed files

Browse Source 
git-svn-id: trunk@35724 -
This commit is contained in:
mattias 2012-03-05 09:53:58 +00:00
parent b80f4dd6e2
commit 3f4bf66b8b
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/main.pp
View File

@ -15600,6 +15600,7 @@ var
PascalReferences: TAVLTree;
ListOfLazFPDocNode: TFPList;
CurUnitname: String;
OldChange: Boolean;
begin
Result:=mrCancel;
if not BeginCodeTool(TargetSrcEdit,TargetUnitInfo,[]) then exit;
@ -15713,13 +15714,19 @@ begin
mtInformation,[mbCancel],'');
exit(mrCancel);
end;
if not CodeToolBoss.RenameIdentifier(PascalReferences,
Identifier,Options.RenameTo)
then begin
DoJumpToCodeToolBossError;
debugln('TMainIDE.DoFindRenameIdentifier unable to commit');
Result:=mrCancel;
exit;
OldChange:=OpenEditorsOnCodeToolChange;
OpenEditorsOnCodeToolChange:=true;
try
if not CodeToolBoss.RenameIdentifier(PascalReferences,
Identifier,Options.RenameTo)
then begin
DoJumpToCodeToolBossError;
debugln('TMainIDE.DoFindRenameIdentifier unable to commit');
Result:=mrCancel;
exit;
end;
finally
OpenEditorsOnCodeToolChange:=OldChange;
end;
end;