git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/XS/HyperlinkCtrl.xsp

   1 #############################################################################
   2 ## Name:        XS/HyperlinkCtrl.xsp
   3 ## Purpose:     XS++ for Wx::HyperlinkCtrl
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     30/07/2006
   7 ## RCS-ID:      $Id: HyperlinkCtrl.xsp 2079 2007-07-08 21:18:04Z mbarbon $
   8 ## Copyright:   (c) 2006 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 #############################################################################
  12
  13 %module{Wx};
  14
  15 %typemap{wxHyperlinkCtrl*}{simple};
  16
  17 %{
  18 #if WXPERL_W_VERSION_GE( 2, 7, 0 )
  19
  20 #include <wx/hyperlink.h>
  21 %}
  22
  23 %name{Wx::HyperlinkCtrl} class wxHyperlinkCtrl
  24 {
  25     %name{newDefault} wxHyperlinkCtrl()
  26         %code{% RETVAL = new wxHyperlinkCtrl();
  27                 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
  28              %};
  29     %name{newFull} wxHyperlinkCtrl( wxWindow *parent,
  30                                     wxWindowID id,
  31                                     const wxString& label, const wxString& url,
  32                                     const wxPoint& pos = wxDefaultPosition,
  33                                     const wxSize& size = wxDefaultSize,
  34                                     long style = 0,
  35                                     const wxString& name = wxHyperlinkCtrlNameStr )
  36         %code{% RETVAL = new wxHyperlinkCtrl( parent, id, label, url,
  37                                               pos, size, style, name );
  38                 wxPli_create_evthandler( aTHX_ RETVAL, CLASS );
  39              %};
  40
  41     bool Create( wxWindow *parent,
  42                  wxWindowID id,
  43                  const wxString& label, const wxString& url,
  44                  const wxPoint& pos = wxDefaultPosition,
  45                  const wxSize& size = wxDefaultSize,
  46                  long style = 0,
  47                  const wxString& name = wxHyperlinkCtrlNameStr );
  48
  49     wxColour GetHoverColour() const;
  50     void SetHoverColour( const wxColour& colour );
  51     wxColour GetNormalColour() const;
  52     void SetNormalColour( const wxColour& colour );
  53     wxColour GetVisitedColour() const;
  54     void SetVisitedColour( const wxColour& colour );
  55     wxString GetURL() const;
  56     void SetURL ( const wxString& url );
  57     void SetVisited( bool visited = true );
  58     bool GetVisited();
  59 };
  60
  61 %name{Wx::HyperlinkEvent} class wxHyperlinkEvent
  62 {
  63     wxString GetURL();
  64     void SetURL( const wxString& url );
  65 };
  66
  67 %{
  68 void
  69 new( ... )
  70   PPCODE:
  71     BEGIN_OVERLOAD()
  72         MATCH_VOIDM_REDISP( newDefault )
  73         MATCH_ANY_REDISP( newFull )
  74     END_OVERLOAD( "Wx::HyperlinkCtrl::new" )
  75 %}
  76
  77 %{
  78 #endif
  79 %}