1 #############################################################################
2 ## Name: ext/html/XS/HtmlTag.xsp
3 ## Purpose: XS for Wx::HtmlTag
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: HtmlTag.xsp 2234 2007-09-30 20:34:36Z mbarbon $
8 ## Copyright: (c) 2003-2004, 2007 Mattia Barbon
9 ## Licence: This program is free software; you can redistribute it and/or
10 ## modify it under the same terms as Perl itself
11 #############################################################################
16 #include <wx/html/htmltag.h>
19 %name{Wx::HtmlTag} class wxHtmlTag
21 wxHtmlTag *GetParent() const;
22 wxHtmlTag *GetFirstSibling() const;
23 wxHtmlTag *GetLastSibling() const;
24 wxHtmlTag *GetChildren() const;
25 wxHtmlTag *GetPreviousSibling() const;
26 wxHtmlTag *GetNextSibling() const;
27 wxHtmlTag *GetNextTag() const;
29 wxString GetName() const;
31 bool HasParam(const wxString& par) const;
33 wxString GetParam(const wxString& par, bool with_commas = false) const;
35 ## int ScanParam(const wxString& par, const wxChar *format,
36 ## void *param) const;
38 wxString GetAllParams() const;
40 bool HasEnding() const;
42 #if WXPERL_W_VERSION_LT( 2, 9, 0 )
43 int GetBeginPos() const;
44 int GetEndPos1() const;
45 int GetEndPos2() const;
52 wxHtmlTag::GetParamAsColour( wxString par )
55 bool ret = THIS->GetParamAsColour( par, &col );
58 XPUSHs( newSViv( ret ) );
59 XPUSHs( wxPli_non_object_2_sv( aTHX_ sv_newmortal(),
60 ( ret ? new wxColour( col ) : NULL ),
64 wxHtmlTag::GetParamAsInt(wxString par)
67 bool ret = THIS->GetParamAsInt( par, &val );
70 XPUSHs( newSViv( ret ) );
71 XPUSHs( newSViv( val ) );