view release on metacpan or  search on metacpan

lib/Tk/PodViewer/Full.pm  view on Meta::CPAN

package Tk::PodViewer::Full;

use strict;
use warnings;
use vars qw ($VERSION);
$VERSION =  0.03;
use base qw(Tk::Derived Tk::PodViewer);

Construct Tk::Widget 'PodViewerFull';

=head1 NAME

Tk::PodViewer::Full - Deluxe Tk::PodViewer widget.

=head1 SYNOPSIS

 require Tk::PodViewer::Full
 my $podviewer = $app->PodViewerFull->pack;
 $podviewer->load('SomePerlFileWithPod.pm');

=head1 DESCRIPTION

Tk::PodViewer::Full is a deluxe verstion of L<Tk::PodViewer>.
It adds a toolbar and a popable search bar.

=head1 OPTIONS

=over 4

=item Switch: B<-nextimage>

Image to be used for the next button.

=item Switch: B<-previmage>

Image to be used for the previous button.

=item Switch: B<-zoominimage>

Image to be used for the zoom-in button.

=item Switch: B<-zoomoutimage>

Image to be used for the zoom-out button.

=item Switch: B<-zoomresetimage>

Image to be used for the zoom-reset button.

=back

=head1 ADVERTISED SUBWIDGETS

C<Searchbar> The poppable search bar.

C<Search> The entry inside the Searchbar.

C<Toolbar> The tool frame in the top.

=cut

sub Populate {
	my ($self,$args) = @_;

	$self->SUPER::Populate($args);

	my @bpack = (-side => 'left', -padx => 2, -pady => 2);