git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/ext/html/Html.xs

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        ext/html/Html.xs
   3 // Purpose:     XS for Wx::Html*
   4 // Author:      Mattia Barbon
   5 // Modified by:
   6 // Created:     10/03/2001
   7 // RCS-ID:      $Id: Html.xs 2700 2009-12-13 11:25:50Z mbarbon $
   8 // Copyright:   (c) 2001-2004, 2006, 2008-2009 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 #define PERL_NO_GET_CONTEXT
  14
  15 #include "cpp/wxapi.h"
  16 #include <wx/html/htmlwin.h>
  17
  18 #undef THIS
  19
  20 #define wxDefaultValidatorPtr (wxValidator*)&wxDefaultValidator
  21
  22 // event macros
  23 #define SEVT( NAME, ARGS )    wxPli_StdEvent( NAME, ARGS )
  24 #define EVT( NAME, ARGS, ID ) wxPli_Event( NAME, ARGS, ID )
  25
  26 // !package: Wx::Event
  27 // !tag:
  28 // !parser: sub { $_[0] =~ m<^\s*S?EVT\(\s*(\w+)\s*\,> }
  29
  30 static wxPliEventDescription evts[] =
  31 {
  32 #if WXPERL_W_VERSION_GE( 2, 7, 2 )
  33     EVT( EVT_HTML_CELL_CLICKED, 3, wxEVT_COMMAND_HTML_CELL_CLICKED )
  34     EVT( EVT_HTML_CELL_HOVER, 3, wxEVT_COMMAND_HTML_CELL_HOVER )
  35     EVT( EVT_HTML_LINK_CLICKED, 3, wxEVT_COMMAND_HTML_LINK_CLICKED )
  36 #endif
  37     { 0, 0, 0 }
  38 };
  39
  40 MODULE=Wx__Html
  41
  42 BOOT:
  43   INIT_PLI_HELPERS( wx_pli_helpers );
  44
  45 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t typemap.xsp -t ../../typemap.xsp XS/HtmlWindow.xs |
  46
  47 INCLUDE: XS/HtmlHelpController.xs
  48
  49 #if wxPERL_USE_PRINTING_ARCHITECTURE
  50
  51 INCLUDE: XS/HtmlEasyPrinting.xs
  52 INCLUDE: XS/HtmlDCRenderer.xs
  53
  54 #endif
  55
  56 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t typemap.xsp -t ../../typemap.xsp XS/HtmlParser.xsp |
  57
  58 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t typemap.xsp -t ../../typemap.xsp XS/HtmlTagHandler.xsp |
  59
  60 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t typemap.xsp -t ../../typemap.xsp XS/HtmlTag.xsp |
  61
  62 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t typemap.xsp -t ../../typemap.xsp XS/HtmlCell.xsp |
  63
  64 INCLUDE: perl -MExtUtils::XSpp::Cmd -e xspp -- -t typemap.xsp -t ../../typemap.xsp XS/HtmlListBox.xsp |
  65
  66 #include "cpp/ht_constants.cpp"
  67 #include "cpp/ovl_const.cpp"
  68
  69 #  //FIXME//tricky
  70 #if defined(__WXMSW__)
  71 #undef XS
  72 #define XS( name ) WXXS( name )
  73 #endif
  74
  75 MODULE=Wx__Html