anchor.diff:  begin
     exit(aObject is ICEEditableOptions);
   end;
  +
  +function TCEActionProviderSubject.acceptObserver(aObject: TObject): boolean;
  +begin
  +  exit(aObject is ICEActionProvider);
  +end;
   {$ENDREGION}
   
   {$REGION ICESingleService getters ----------------------------------------------}
  
positive.code:     procedure menuUpdate(item: TMenuItem);
    end;
    (**
     * An implementer agregates its observers menus.
     *)
    TCEMainMenuSubject = class(TCECustomSubject)
    protected
      function acceptObserver(aObject: TObject): boolean; override;
    end;
  
negative.code: 
  
    (**
     * An implementer can add a main menu entry.
     *)
    ICEMainMenuProvider = interface
    ['ICEMainMenuProvider']
  