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

   1 #############################################################################
   2 ## Name:        ext/html/lib/Wx/Html.pm
   3 ## Purpose:     Wx::Html (pulls in all Wx::Html* stuff)
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     17/03/2001
   7 ## RCS-ID:      $Id: Html.pm 2084 2007-07-18 21:34:14Z vadz $
   8 ## Copyright:   (c) 2001-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 #############################################################################
  12
  13 package Wx::Html;
  14
  15 use Wx;
  16 use strict;
  17
  18 use vars qw($VERSION);
  19
  20 $VERSION = '0.01';
  21
  22 Wx::load_dll( 'net' );
  23 Wx::load_dll( 'html' );
  24 Wx::wx_boot( 'Wx::Html', $VERSION );
  25
  26 #
  27 # properly setup inheritance tree
  28 #
  29
  30 no strict;
  31
  32 package Wx::HelpControllerBase; # warning fix
  33 package Wx::HtmlWindow;         @ISA = qw(Wx::ScrolledWindow);
  34 package Wx::HtmlHelpController; @ISA = qw(Wx::HelpControllerBase);
  35 package Wx::HtmlParser;
  36 package Wx::HtmlWinParser;      @ISA = qw(Wx::HtmlParser);
  37 package Wx::HtmlTag;
  38 package Wx::PlHtmlTag;          @ISA = qw(Wx::HtmlTag);
  39 package Wx::HtmlTagHandler;
  40 package Wx::PlHtmlTagHandler;   @ISA = qw(Wx::HtmlTagHandler);
  41 package Wx::HtmlWinTagHandler;  @ISA = qw(Wx::HtmlTagHandler);
  42 package Wx::PlHtmlWinTagHandler;@ISA = qw(Wx::HtmlWinTagHandler);
  43 package Wx::HtmlCell;
  44 package Wx::HtmlWordCell;       @ISA = qw(Wx::HtmlCell);
  45 package Wx::HtmlContainerCell;  @ISA = qw(Wx::HtmlCell);
  46 package Wx::HtmlFontCell;       @ISA = qw(Wx::HtmlCell);
  47 package Wx::HtmlColourCell;     @ISA = qw(Wx::HtmlCell);
  48 package Wx::HtmlWidgetCell;     @ISA = qw(Wx::HtmlCell);
  49 package Wx::HtmlListBox;        @ISA = qw(Wx::VListBox);
  50 package Wx::PlHtmlListBox;      @ISA = qw(Wx::HtmlListBox);
  51 package Wx::SimpleHtmlListBox;  @ISA = qw(Wx::HtmlListBox);
  52 package Wx::HtmlCellEvent;      @ISA = qw(Wx::CommandEvent);
  53 package Wx::HtmlLinkEvent;      @ISA = qw(Wx::CommandEvent);
  54
  55 package Wx::Event;
  56
  57 use strict;
  58
  59 sub EVT_HTML_CELL_CLICKED($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_CELL_CLICKED, $_[2] ) }
  60 sub EVT_HTML_CELL_HOVER($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_CELL_HOVER, $_[2] ) }
  61 sub EVT_HTML_LINK_CLICKED($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_LINK_CLICKED, $_[2] ) }
  62
  63 1;
  64
  65 # Local variables:
  66 # mode: cperl
  67 # End: