anchor.diff:      FForControl: TIWCustomControl;
       FRawText: boolean;
       FOldText: string;
  +    FTagType: string;
       function  RenderLabelText: string;
  +    procedure SetTagType(const Value: string);
  +    function IsTagTypeStored: Boolean;
     protected
       procedure CheckData(AContext: TIWCompContext); override;
       procedure InternalRenderAsync(const AHTMLName: string; AContext: TIWCompContext); override;
  +    procedure InternalRenderCss(var ACss: string); override;
       procedure InternalRenderHTML(const AHTMLName: string; AContext: TIWCompContext; var AHTMLTag: TIWHTMLTag); override;
       procedure SetForControl(const Value: TIWCustomControl);
     public
  
positive.code: 
    if Parent is TIWBSInputGroup then
      AHTMLTag := IWBSCreateInputGroupAddOn(AHTMLTag, HTMLName, 'addon');
  end;
  
  procedure TIWBSLabel.CheckData(AContext: TIWCompContext);
  
negative.code:     procedure OnHtmlChange(ASender : TObject);
      procedure SetHtml(const AValue: TStringList);
      procedure SetTagType(const Value: string);
      function IsTagTypeStored: Boolean;
    protected
      procedure InternalRenderHTML(const AHTMLName: string; AContext: TIWCompContext; var AHTMLTag: TIWHTMLTag); override;
    public
  