anchor.diff:      procedure actAutoRefreshExecute(Sender: TObject);
       procedure actRefreshOnChangeExecute(Sender: TObject);
       procedure actRefreshOnFocusExecute(Sender: TObject);
  +    procedure actCopyIdentExecute(Sender: TObject);
       procedure updateVisibleCat;
       //
       procedure produceJsonInfo;
  
positive.code: begin
    refreshOnFocus := not refreshOnFocus;
  end;
  {$ENDREGION}
  
  {$REGION ICEMultiDocObserver ---------------------------------------------------}
  
negative.code:   private
      fDmdProc: TCheckedAsyncProcess;
      fLogMessager: TCELogMessageSubject;
      fActCopyIdent: TAction;
      fActRefresh: TAction;
      fActRefreshOnChange: TAction;
      fActRefreshOnFocus: TAction;
  