anchor.diff:  begin
     refreshOnFocus := not refreshOnFocus;
   end;
  +
  +procedure TCEStaticExplorerWidget.actCopyIdentExecute(Sender: TObject);
  +begin
  +  if Tree.Selected = nil then exit;
  +  Clipboard.AsText:= Tree.Selected.Text;
  +end;
  +
   {$ENDREGION}
   
   {$REGION ICEMultiDocObserver ---------------------------------------------------}
  
positive.code:   private
      fDmdProc: TCheckedAsyncProcess;
      fLogMessager: TCELogMessageSubject;
      fActRefresh: TAction;
      fActRefreshOnChange: TAction;
      fActRefreshOnFocus: TAction;
  
negative.code:   fAutoRefresh := false;
    fRefreshOnFocus := true;
    fRefreshOnChange := false;
  
    fActCopyIdent := TAction.Create(self);
    fActCopyIdent.OnExecute:=@actCopyIdentExecute;
    fActCopyIdent.Caption := 'Copy identifer';
    fActRefresh := TAction.Create(self);
    fActRefresh.OnExecute := @actRefreshExecute;
    fActRefresh.Caption := 'Refresh';
  