#############################################################################
## Name:        ext/html/XS/HtmlTag.xsp
## Purpose:     XS for Wx::HtmlTag
## Author:      Mattia Barbon
## Modified by:
## Created:     30/11/2003
## RCS-ID:      $Id: HtmlTag.xsp 2234 2007-09-30 20:34:36Z mbarbon $
## Copyright:   (c) 2003-2004, 2007 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

%module{Wx};

%{
#include <wx/html/htmltag.h>
%}

%name{Wx::HtmlTag} class wxHtmlTag
{
    wxHtmlTag *GetParent() const;
    wxHtmlTag *GetFirstSibling() const;
    wxHtmlTag *GetLastSibling() const;
    wxHtmlTag *GetChildren() const;
    wxHtmlTag *GetPreviousSibling() const;
    wxHtmlTag *GetNextSibling() const;
    wxHtmlTag *GetNextTag() const;

    wxString GetName() const;

    bool HasParam(const wxString& par) const;

    wxString GetParam(const wxString& par, bool with_commas = false) const;

##    int ScanParam(const wxString& par, const wxChar *format,
##                  void *param) const;

    wxString GetAllParams() const;

    bool HasEnding() const;

#if WXPERL_W_VERSION_LT( 2, 9, 0 )
    int GetBeginPos() const;
    int GetEndPos1() const;
    int GetEndPos2() const;
#endif
};

%{

void
wxHtmlTag::GetParamAsColour( wxString par )
  PPCODE:
    wxColour col;
    bool ret = THIS->GetParamAsColour( par, &col );

    EXTEND( SP, 2 );
    XPUSHs( newSViv( ret ) );
    XPUSHs( wxPli_non_object_2_sv( aTHX_ sv_newmortal(),
                                   ( ret ? new wxColour( col ) : NULL ),
                                   "Wx::Colour" ) );

void
wxHtmlTag::GetParamAsInt(wxString par)
  PPCODE:
    int val;
    bool ret = THIS->GetParamAsInt( par, &val );

    EXTEND( SP, 2 );
    XPUSHs( newSViv( ret ) );
    XPUSHs( newSViv( val ) );

%}