anchor.diff:      fQueryParams: boolean;
       fChainBefore: TStringList;
       fChainAfter: TStringList;
  -    //fShortcut: TShortcut;
  +    fShortcut: TShortcut;
       fMsgs: ICEMessagesDisplay;
       procedure setParameters(aValue: TStringList);
       procedure setChainBefore(aValue: TStringList);
  
positive.code:     property queryParameters: boolean read fQueryParams write fQueryParams;
      property chainBefore: TStringList read fChainBefore write setchainBefore;
      property chainAfter: TStringList read fChainAfter write setChainAfter;
      //property shortcut: TShortcut read fShortcut write fShortcut;
    public
      constructor create(ACollection: TCollection); override;
      destructor destroy; override;
    end;
  
    TCETools = class(TWritableLfmTextComponent, ICEMainMenuProvider)
    private
      fTools: TCollection;
      function getTool(index: Integer): TCEToolItem;
      procedure setTools(const aValue: TCollection);
      //
      procedure menuDeclare(item: TMenuItem);
      procedure menuUpdate(item: TMenuItem);
      procedure executeToolFromMenu(sender: TObject);
    published
      property tools: TCollection read fTools write setTools;
    public
  
negative.code:   //
    executeTool(tool[aToolIndex]);
  end;
  {$ENDREGION}
  
  initialization
    RegisterClasses([TCEToolItem, TCETools]);
  