anchor.diff:  procedure TCEStaticExplorerWidget.actRefreshExecute(Sender: TObject);
   begin
     if Updating then exit;
  -  Rescan;
  +  produceJsonInfo;
   end;
   
   procedure TCEStaticExplorerWidget.actAutoRefreshExecute(Sender: TObject);
  
positive.code:     end;
    finally
      str.Free;
      DeleteFile(jsf);
    end;
  
    // update tree
  
negative.code:   if fAutoRefresh then
      beginUpdateByDelay
    else if fRefreshOnChange then
      produceJsonInfo;
  end;
  {$ENDREGION}
  
  