Hello Monks,

There is a bug either in my code or in Tk::NoteBook that has been driving me nuts. Everything is created fine, but when I try to resize the window, the notebook only expands half as much. Is it something in my packing or a bug in the module? Thanks.

use Tk;
require Tk::NoteBook;
use strict;

my $mw;

die "\n" unless defined eval {
  $mw = MainWindow->new(-title=>"Window");
};
$mw->protocol('WM_DELETE_WINDOW',sub{exit});
$mw->optionAdd('*font'=>"Fixed 10");

my $statusBar = $mw->Frame(-relief=>"raised", -borderwidth=>2)->
  pack(-expand=>1, -fill=>'x', -side=>'bottom', -anchor=>'s');
$statusBar->Label(-text=>"Progress: ")->pack(-side=>"left");
my $menubar = $mw->Menu;
$mw->configure(-menu=>$menubar);
my $file_menu = $menubar->cascade(-label => '~File', -tearoff => 0);

##### Code in Question ####
my $notebook = $mw->NoteBook()->pack(-expand=>1,-fill=>'both');
my $setupPage = $notebook->add("page1", -label=>"Setup", -underline=>0
+);

MainLoop;
[download]