anchor.diff:    //
     if fAutoRefresh then beginDelayedUpdate
     else if fRefreshOnChange then callToolProc;
  +  //
  +  //expandCurrentDeclaration;
   end;
   {$ENDREGION}
   
  
positive.code:     for i:= 0 to tree.Items.Count-1 do
        if Tree.Items[i].Count > 0 then
          tree.Items[i].CustomSort(nil);
    tree.EndUpdate;
  end;
  {$ENDREGION --------------------------------------------------------------------}
  
  end.
  
negative.code:     procedure actCopyIdentExecute(Sender: TObject);
      procedure updateVisibleCat;
      procedure clearTree;
      procedure expandCurrentDeclaration;
      //
      procedure checkIfHasToolExe;
      procedure callToolProc;
  