view release on metacpan or  search on metacpan

lib/Tk/YANoteBook.pm  view on Meta::CPAN

use strict;
use warnings;
use Carp;
use vars qw($VERSION);
$VERSION = '0.10';

use Tk;
require Tk::YANoteBook::NameTab;

use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'YANoteBook';

=head1 SYNOPSIS

 require Tk::YANoteBook;
 my $nb = $window->YANoteBook(@options)->pack;

=head1 DESCRIPTION

A more flexible notebook widget. It does well in a multi document environment.

lib/Tk/YANoteBook/NameTab.pm  view on Meta::CPAN

package Tk::YANoteBook::NameTab;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.10';

use Tk;
use base qw(Tk::Derived Tk::Frame);
Construct Tk::Widget 'NameTab';

sub Populate {
	my ($self,$args) = @_;
	
	my $closebutton = delete $args->{'-closebutton'};
	$closebutton = 0 unless defined $closebutton;

	my $padx = delete $args->{'-tpadx'};
	$padx = 1 unless defined $padx;