anchor.diff:  
     if Parent is TIWBSInputGroup then
       AHTMLTag := IWBSCreateInputGroupAddOn(AHTMLTag, HTMLName, 'addon');
  +end;
  +
  +function TIWBSLabel.IsTagTypeStored: Boolean;
  +begin
  +  Result := FTagType <> 'span';
   end;
   
   procedure TIWBSLabel.CheckData(AContext: TIWCompContext);
  
positive.code:     destructor Destroy; override;
    published
      property Html: TStringList read FHtml write SetHtml;
      property TagType: string read FTagType write SetTagType;
    end;
  
    TIWBSFile = class(TIWBSCustomControl)
  
negative.code:     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
  