| Subject: | Tk::Notebook patch (-background option) |
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 |
--- 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