updated interfaces and observers

src/ce_interfaces.pas

@@ -100,10 +100,10 @@ type
    *)
   ICEMainMenuProvider = interface
   ['ICEMainMenuProvider']
-    // item must contain the full items tree to be added
+    // item is a new mainMenu entry. item must be filled with the sub-items to be added.
-    procedure menuDeclare(out item: TMenuItem);
+    procedure menuDeclare(item: TMenuItem);
-    // the implementer can update the actions used in the menu declared previously.
+    // item is the mainMenu entry declared previously. the sub items can be updated, deleted.
-    procedure menuActionsUpdate;
+    procedure menuUpdate(item: TMenuItem);
   end;
   (**
    * An implementer agregates its observers menus.

src/ce_observer.pas

@@ -52,6 +52,8 @@ type
     fObservers: TObjectList;
     // test for a specific interface when adding an observer.
     function acceptObserver(aObject: TObject): boolean; virtual;
+    function getObserversCount: Integer;
+    function getObserver(index: Integer): TObject;
   public
     constructor create; virtual;
     destructor destroy; override;
@@ -59,6 +61,9 @@ type
     procedure addObserver(anObserver: TObject);
     procedure removeObserver(anObserver: TObject);
     procedure updateObservers; virtual;
+    //
+    property observersCount: Integer read getObserversCount;
+    property observers[index: Integer]: TObject read getObserver;
   end;
 
 var
@@ -164,6 +169,16 @@ begin
   exit(false);
 end;
 
+function TCECustomSubject.getObserversCount: Integer;
+begin
+  exit(fObservers.Count);
+end;
+
+function TCECustomSubject.getObserver(index: Integer): TObject;
+begin
+  exit(fObservers.Items[index]);
+end;
+
 procedure TCECustomSubject.addObserver(anObserver: TObject);
 begin
   if not acceptObserver(anObserver) then