/usr/lib/perl5/Wx/Html.pm is in libwx-perl 1:0.9903-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | #############################################################################
## Name: ext/html/lib/Wx/Html.pm
## Purpose: Wx::Html (pulls in all Wx::Html* stuff)
## Author: Mattia Barbon
## Modified by:
## Created: 17/03/2001
## RCS-ID: $Id: Html.pm 2084 2007-07-18 21:34:14Z vadz $
## Copyright: (c) 2001-2007 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
package Wx::Html;
use Wx;
use strict;
use vars qw($VERSION);
$VERSION = '0.01';
Wx::load_dll( 'net' );
Wx::load_dll( 'html' );
Wx::wx_boot( 'Wx::Html', $VERSION );
#
# properly setup inheritance tree
#
no strict;
package Wx::HelpControllerBase; # warning fix
package Wx::HtmlWindow; @ISA = qw(Wx::ScrolledWindow);
package Wx::HtmlHelpController; @ISA = qw(Wx::HelpControllerBase);
package Wx::HtmlParser;
package Wx::HtmlWinParser; @ISA = qw(Wx::HtmlParser);
package Wx::HtmlTag;
package Wx::PlHtmlTag; @ISA = qw(Wx::HtmlTag);
package Wx::HtmlTagHandler;
package Wx::PlHtmlTagHandler; @ISA = qw(Wx::HtmlTagHandler);
package Wx::HtmlWinTagHandler; @ISA = qw(Wx::HtmlTagHandler);
package Wx::PlHtmlWinTagHandler;@ISA = qw(Wx::HtmlWinTagHandler);
package Wx::HtmlCell;
package Wx::HtmlWordCell; @ISA = qw(Wx::HtmlCell);
package Wx::HtmlContainerCell; @ISA = qw(Wx::HtmlCell);
package Wx::HtmlFontCell; @ISA = qw(Wx::HtmlCell);
package Wx::HtmlColourCell; @ISA = qw(Wx::HtmlCell);
package Wx::HtmlWidgetCell; @ISA = qw(Wx::HtmlCell);
package Wx::HtmlListBox; @ISA = qw(Wx::VListBox);
package Wx::PlHtmlListBox; @ISA = qw(Wx::HtmlListBox);
package Wx::SimpleHtmlListBox; @ISA = qw(Wx::HtmlListBox);
package Wx::HtmlCellEvent; @ISA = qw(Wx::CommandEvent);
package Wx::HtmlLinkEvent; @ISA = qw(Wx::CommandEvent);
package Wx::Event;
use strict;
sub EVT_HTML_CELL_CLICKED($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_CELL_CLICKED, $_[2] ) }
sub EVT_HTML_CELL_HOVER($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_CELL_HOVER, $_[2] ) }
sub EVT_HTML_LINK_CLICKED($$$) { $_[0]->Connect( $_[1], -1, &Wx::wxEVT_COMMAND_HTML_LINK_CLICKED, $_[2] ) }
1;
# Local variables:
# mode: cperl
# End:
|