Skip Menu |
 

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 57928
Status: new
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: DJIBEL [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: 804.028



Subject: Tk::Notebook patch (-background option)
Download (untitled) / with headers
text/plain 491b
Dear, Good job for the last release Tk 804.029. I propose a patch to Tk::NoteBook to allow user to add background color to a notebook page with -background option. For the moment, We can add a colour to background of notebook with -backpagecolor or a background colour to tab with -background, but it is not possible to add background colour to page. this patch add -background colour to add method. Ex : my $page1 = $notebook->add("page 1", -label => "page 1", -background => 'green' );
Subject: patch_notebook.txt
Download patch_notebook.txt
text/plain 716b
--- C:/Perl/site/lib/Tk/NoteBook.pm Fri May 28 08:51:26 2010 +++ C:/Perl/site/lib/Tk/NoteBook_new.pm Fri May 28 08:51:49 2010 @@ -10,7 +10,7 @@ use vars qw($VERSION); #$VERSION = sprintf '4.%03d', q$Revision: #9 $ =~ /\D(\d+)\s*$/; -$VERSION = '4.011'; +$VERSION = '4.012'; require Tk::NBFrame; use base qw(Tk::Derived Tk::NBFrame); @@ -120,6 +120,8 @@ my $f = Tk::Frame->new($w,Name => $child,-relief => 'raised'); + my $notebook_bg = delete $args{-background}; + $f->configure( -background => $notebook_bg) if (defined $notebook_bg); my $ccmd = delete $args{-createcmd}; my $rcmd = delete $args{-raisecmd}; $f->{-createcmd} = Tk::Callback->new($ccmd) if (defined $ccmd);
Subject: patch_NotebookPOD.txt
--- C:/Perl/site/lib/Tk/NoteBook.pod Fri Mar 26 09:50:06 2010 +++ C:/Perl/site/lib/Tk/NoteBook_new.pod Fri May 28 09:06:24 2010 @@ -96,6 +96,10 @@ one of B<n>, B<ne>, B<e>, B<se>, B<s>, B<sw>, B<w>, B<nw> or B<center>. +=item B<-background> + +The background color of page. + =item B<-bitmap> Specifies a bitmap to display on the tab of this page. The bitmap


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.