paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 15:36:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: rename private method in TFileOpenClose: PrepareRevert -> CheckRevert.

Browse Source 
git-svn-id: trunk@45682 -
This commit is contained in:
juha 2014-06-27 08:35:20 +00:00
parent f1c0a955c8
commit f355ed2554
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcefilemanager.pas
View File

@ -81,7 +81,7 @@ type
// Used by OpenEditorFile
function OpenResource: TModalResult;
function PrepareInternalFile: TModalResult;
function PrepareRevert: TModalResult;
function CheckRevert: TModalResult;
public
constructor Create(AManager: TLazSourceFileManager);
destructor Destroy; override;
@ -372,11 +372,11 @@ begin
FNewUnitInfo.LoadedDesigner:=false;
end;
function TFileOpenClose.PrepareRevert: TModalResult;
function TFileOpenClose.CheckRevert: TModalResult;
// revert: use source editor filename
begin
if (FPageIndex>=0) then begin
if FUseWindowID then // PrepareRevert must have a valid ID
if FUseWindowID then // Revert must have a valid ID
FWindowIndex := SourceEditorManager.IndexOfSourceWindowWithID(FWindowIndex);
FUseWindowID := False;
Assert((FWindowIndex >= 0) and (FWindowIndex < SourceEditorManager.SourceWindowCount), 'FWindowIndex for revert');
@ -472,7 +472,7 @@ begin
end;
if (ofRevert in FFlags) then begin
Result := PrepareRevert;
Result := CheckRevert;
if Result = mrIgnore then exit(mrOK);
Assert(Result = mrOK);
end;