anchor.diff:      fQueryParams: boolean;
       fChainBefore: TStringList;
       fChainAfter: TStringList;
  -    //fShortcut: TShortcut;
  +    fShortcut: TShortcut;
       fMsgs: ICEMessagesDisplay;
       procedure setParameters(aValue: TStringList);
       procedure setChainBefore(aValue: TStringList);
  
positive.code:   //
    executeTool(tool[aToolIndex]);
  end;
  
  initialization
    RegisterClasses([TCEToolItem, TCETools]);
  
negative.code:   fTools.Free;
    inherited;
  end;
  {$ENDREGION}
  
  {$REGION ICEMainMenuProvider ---------------------------------------------------}
  procedure TCETools.executeToolFromMenu(sender: TObject);
  begin
    executeTool(TCEToolItem(TMenuItem(sender).tag));
  