/usr/share/perl5/EB/Wx/Help.pm is in eekboek 2.02.04-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 | #! perl
package main;
our $cfg;
package EB::Wx::Help;
use strict;
use EB;
use Wx qw(wxHF_FLATTOOLBAR wxHF_TOOLBAR wxHF_CONTENTS wxHF_SEARCH wxHF_BOOKMARKS wxHF_INDEX wxHF_PRINT wxHF_DEFAULTSTYLE);
use Wx qw(wxACCEL_CTRL wxACCEL_NORMAL wxID_CLOSE);
use Wx::Event;
use Wx::Html;
use Wx::Help;
use Wx::FS;
# very important for HTB to work
Wx::FileSystem::AddHandler( new Wx::ZipFSHandler );
sub new {
my $class = shift;
my $self = Wx::HtmlHelpController->new
( wxHF_FLATTOOLBAR | wxHF_TOOLBAR
# | wxHF_CONTENTS
# | wxHF_INDEX
| wxHF_CONTENTS
# | wxHF_BOOKMARKS
| wxHF_SEARCH
| wxHF_PRINT
);
return bless \$self, $class;
}
sub show_html_help {
my ($self) = @_;
if ( my $htb_file = findlib( "docs.htb", "help" ) ) {
$$self->AddBook( $htb_file, 1 );
$$self->DisplayContents;
if( my $hframe = Wx::Window::FindWindowByName('wxHtmlHelp')) {
$hframe->SetAcceleratorTable
(Wx::AcceleratorTable->new
( [wxACCEL_CTRL, ord 'w', wxID_CLOSE],
[wxACCEL_NORMAL, 27, wxID_CLOSE],
));
}
}
else {
::info( _T("No help available for this language"),
_T("Sorry") );
}
}
package Wx::HtmlHelpFrame;
our @ISA = qw( Wx::Frame );
1;
|