From 1eca478fdd8b048a13cac9650452e28ad1897226 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 22 Feb 2010 22:46:11 +0000
Subject: [PATCH] IDE: menu search set free bookmark, bug #15829

git-svn-id: trunk@23762 -
---
 ide/main.pp         | 7 +++++++
 ide/sourceeditor.pp | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ide/main.pp b/ide/main.pp
index 3a080eae8f..b52cd63efa 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -251,6 +251,7 @@ type
     procedure mnuOpenFileAtCursorClicked(Sender: TObject);
     procedure mnuGotoIncludeDirectiveClicked(Sender: TObject);
     procedure mnuSearchProcedureList(Sender: TObject);
+    procedure mnuSetFreeBookmark(Sender: TObject);
 
     // view menu
     procedure mnuViewInspectorClicked(Sender: TObject);
@@ -2357,6 +2358,7 @@ begin
     itmSearchRenameIdentifier.OnClick:=@mnuSearchRenameIdentifierClicked;
     itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
     itmSearchProcedureList.OnClick := @mnuSearchProcedureList;
+    itmSetFreeBookmark.OnClick := @mnuSetFreeBookmark;
   end;
 end;
 
@@ -2686,6 +2688,11 @@ begin
   ProcedureList.ExecuteProcedureList(Sender);
 end;
 
+procedure TMainIDE.mnuSetFreeBookmark(Sender: TObject);
+begin
+  SourceNotebook.BookMarkSetFree;
+end;
+
 procedure TMainIDE.mnuSaveClicked(Sender: TObject);
 begin
   if SourceNoteBook.PageIndex < 0 then exit;
diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 1bb7d59f42..db6399337d 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -495,7 +495,6 @@ type
     procedure BookmarkGotoNext(GoForward: boolean);
     procedure BookMarkGotoClicked(Sender: TObject);
     procedure BookMarkSet(Value: Integer; Toggle: boolean = false);
-    procedure BookMarkSetFree;// set a free bookmark
     procedure BookMarkToggleClicked(Sender: TObject);
     procedure BookmarkSetFreeClicked(Sender: TObject);
     procedure EditorPropertiesClicked(Sender: TObject);
@@ -533,6 +532,7 @@ type
     procedure SrcEditMenuAnotherViewClicked(Sender: TObject);
     {$ENDIF}
   public
+    procedure BookMarkSetFree;// set a free bookmark
     procedure BookMarkNextClicked(Sender: TObject);
     procedure BookMarkPrevClicked(Sender: TObject);
     procedure DeleteBreakpointClicked(Sender: TObject);