anchor.diff:      procedure TreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
       procedure TreeSelectionChanged(Sender: TObject);
     protected
  -    procedure UpdateByEvent; override;
  +    procedure updateImperative; override;
  +    procedure updateDelayed; override;
       procedure SetVisible(Value: boolean); override;
     private
       fActOpenFile: TAction;
  
positive.code:     if FileExists(fname) then
      begin
        multidoc.openDocument(fname);
        fProject.addSource(fname);
      end;
  end;
  
  procedure TCEProjectInspectWidget.UpdateByEvent;
  var
    src, fold, conf: string;
    lst: TStringList;
  
negative.code: procedure TCEProjectInspectWidget.SetVisible(Value: boolean);
  begin
    inherited;
    if Value then updateImperative;
  end;
  {$ENDREGION}
  
  