From 6262ac98029f9a83f5735bbecc5633d4f8394b43 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 30 Nov 2014 04:08:15 +0100
Subject: [PATCH] added ICEMainMenuProvider handler

---
 src/ce_main.pas | 39 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index ee863905..55536a79 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -197,6 +197,8 @@ type
     fRunProc: TCheckedAsyncProcess;
 
     fLogMessager: TCELogMessageSubject;
+    fMainMenuSubj: TCEMainMenuSubject;
+    procedure updateMainMenuProviders;
 
     // ICEMultiDocObserver
     procedure docNew(aDoc: TCESynMemo);
@@ -294,6 +296,7 @@ constructor TCEMainForm.create(aOwner: TComponent);
 begin
   inherited create(aOwner);
   fLogMessager := TCELogMessageSubject.create;
+  fMainMenuSubj:= TCEMainMenuSubject.create;
   //
   EntitiesConnector.addObserver(self);
   //
@@ -308,6 +311,7 @@ begin
   getCMdParams;
   //
   EntitiesConnector.endUpdate;
+  updateMainMenuProviders;
   fInitialized := true;
 end;
 
@@ -686,6 +690,7 @@ begin
   FreeRunnableProc;
   //
   fLogMessager.Free;
+  fMainMenuSubj.Free;
   EntitiesConnector.removeObserver(self);
   inherited;
 end;
@@ -730,6 +735,7 @@ var
   hasEd: boolean;
   hasProj: boolean;
 begin
+  Handled := true;
   if fEditWidg = nil then exit;
   if fUpdateCount > 0 then exit;
   Inc(fUpdateCount);
@@ -796,9 +802,40 @@ begin
       actProjRunWithArgs.Enabled := fProject.canBeRun;
     end;
     actFileAddToProj.Enabled := hasEd and hasProj;
+    //
+    updateMainMenuProviders;
   finally
     Dec(fUpdateCount);
-    Handled := true;
+  end;
+end;
+
+procedure TCEMainForm.updateMainMenuProviders;
+var
+  i, j: Integer;
+  itm: TMenuItem;
+  doneUpdate: boolean;
+begin
+  doneUpdate := false;
+  for j := 0 to fMainMenuSubj.observersCount-1 do
+  begin
+    // try to update existing entry.
+    for i := 0 to mainMenu.Items.Count-1 do
+      if PtrInt(fMainMenuSubj.observers[j]) = mainMenu.Items[i].Tag then
+      begin
+        (fMainMenuSubj.observers[j] as ICEMainMenuProvider).menuUpdate(mainMenu.Items[i]);
+        doneUpdate := true;
+        break;
+      end;
+    if doneUpdate then
+      continue;
+    // otherwise propose to create a new entry
+    itm := TMenuItem.Create(Self);
+    (fMainMenuSubj.observers[j] as ICEMainMenuProvider).menuDeclare(itm);
+    itm.Tag:= PtrInt(fMainMenuSubj.observers[j]);
+    case itm.Count > 0 of
+      true: mainMenu.Items.Add(itm);
+      false: itm.Free;
+    end;
   end;
 end;