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
|
#! 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 wxHF_DIALOG wxHF_MODAL );
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 $modal = shift || 0;
my $self = Wx::HtmlHelpController->new
( wxHF_FLATTOOLBAR | wxHF_TOOLBAR
# | wxHF_CONTENTS
# | wxHF_INDEX
| wxHF_CONTENTS
# | wxHF_BOOKMARKS
| wxHF_SEARCH
| wxHF_PRINT
| ( $modal ? wxHF_DIALOG|wxHF_MODAL : 0 )
);
return bless { widget => $self, modal => $modal }, $class;
}
sub show_html_help {
my ($self) = @_;
if ( my $htb_file =
$ENV{EB_HTB} && -s $ENV{EB_HTB}
? $ENV{EB_HTB}
: findlib( "docs.htb", "help" ) ) {
$self->{widget}->AddBook( $htb_file, 1 );
$self->{widget}->DisplayContents;
return if $self->{modal};
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;
|
