From f355ed2554fb20f77f8adc8ecce7d68c98995ca0 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 27 Jun 2014 08:35:20 +0000
Subject: [PATCH] IDE: rename private method in TFileOpenClose: PrepareRevert
 -> CheckRevert.

git-svn-id: trunk@45682 -
---
 ide/sourcefilemanager.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index 91d7361469..a675d00899 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -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;