anchor.diff:    if fAutoRefresh then
       beginUpdateByDelay
     else if fRefreshOnChange then
  -    Rescan;
  +    produceJsonInfo;
   end;
   {$ENDREGION}
   
  
positive.code: procedure TCEStaticExplorerWidget.UpdateByDelay;
  begin
    if not fAutoRefresh then exit;
    Rescan;
  end;
  
  procedure TCEStaticExplorerWidget.TreeDeletion(Sender: TObject; Node: TTreeNode);
  
negative.code: begin
    fDoc := aDoc;
    if fAutoRefresh then beginUpdateByDelay
    else if fRefreshOnFocus then produceJsonInfo;
  end;
  
  procedure TCEStaticExplorerWidget.docChanged(aDoc: TCESynMemo);
  