anchor.diff:      fQueryParams: boolean;
       fChainBefore: TStringList;
       fChainAfter: TStringList;
  -    //fShortcut: TShortcut;
  +    fShortcut: TShortcut;
       fMsgs: ICEMessagesDisplay;
       procedure setParameters(aValue: TStringList);
       procedure setChainBefore(aValue: TStringList);
  
positive.code: const
    toolsFname = 'tools.txt';
  
  constructor TCEToolItem.create(ACollection: TCollection);
  begin
    inherited;
  
negative.code:     lst.Free;
    end;
  end;
  {$ENDREGION --------------------------------------------------------------------}
  
  {$REGION Standard Comp/Obj -----------------------------------------------------}
  constructor TCETools.create(aOwner: TComponent);
  var
    fname: string;
  