From 936ca111934fda221bb5661678d51938f30014e4 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 22 Mar 2012 01:49:18 +0000
Subject: [PATCH] SrcEdit: Made menu callback a method

git-svn-id: trunk@36207 -
---
 ide/sourceeditor.pp | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 49957d93b6..ce7f3f96c8 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -558,6 +558,7 @@ type
     FBaseCaption: String;
     FIsClosing: Boolean;
     TabPopUpMenu, SrcPopUpMenu, DbgPopUpMenu: TPopupMenu;
+    procedure ExecuteEditorItemClick(Sender: TObject);
   protected
     procedure CompleteCodeMenuItemClick(Sender: TObject);
     procedure ExtractProcMenuItemClick(Sender: TObject);
@@ -1246,17 +1247,6 @@ begin
   Result := TSourceEditorManager(SourceEditorManagerIntf);
 end;
 
-procedure ExecuteEditorItemClick(Sender: TObject);
-var
-  Editor: TSourceEditor;
-begin
-  if SourceEditorManager = nil then exit;
-
-  Editor := TSourceEditor((sender as TIDEMenuCommand).UserTag);
-  SourceEditorManager.ActiveEditor :=Editor;
-  SourceEditorManager.ShowActiveWindowOnTop(True);
-end;
-
 procedure ExecuteIdeMenuClick(Sender: TObject);
 var
   ActEdit: TSourceEditor;
@@ -5464,7 +5454,7 @@ begin
         if S <> EditorCur.FileName then
           S := S +' in '+ExtractFileDir(EditorCur.FileName);
         RegisterIDEMenuCommand(SrcEditMenuSectionEditors, 'File'+IntToStr(i),
-                 s, nil, @ExecuteEditorItemClick, nil, '', PtrUInt(EditorCur));
+                 s, @ExecuteEditorItemClick, nil, nil, '', PtrUInt(EditorCur));
       end;
       PageList.Free;
     end;
@@ -6867,6 +6857,17 @@ begin
   Cursor:=crDefault;
 end;
 
+procedure TSourceNotebook.ExecuteEditorItemClick(Sender: TObject);
+var
+  Editor: TSourceEditor;
+begin
+  if SourceEditorManager = nil then exit;
+
+  Editor := TSourceEditor((sender as TIDEMenuCommand).UserTag);
+  SourceEditorManager.ActiveEditor :=Editor;
+  SourceEditorManager.ShowActiveWindowOnTop(True);
+end;
+
 procedure TSourceNotebook.CloseTabClicked(Sender: TObject);
 begin
   CloseClicked(Sender,