anchor.diff:      end;
     finally
       str.Free;
  -    DeleteFile(jsf);
  +    DeleteFile(fJsonFname);
     end;
   
     // update tree
  
positive.code:     procedure TreeFilterEdit1AfterFilter(Sender: TObject);
      procedure TreeKeyPress(Sender: TObject; var Key: char);
    private
      fLogMessager: TCELogMessageSubject;
      fActRefresh: TAction;
      fActRefreshOnChange: TAction;
  
negative.code: interface
  
  uses
    Classes, SysUtils, TreeFilterEdit, Forms, Controls, Graphics, ExtCtrls, Menus,
    ComCtrls, ce_widget, jsonparser, fpjson, asyncprocess, process, actnlist, Buttons,
    ce_common, ce_project, ce_observer, ce_synmemo, ce_interfaces;
  
  type
  
  