#!/usr/bin/perl

# THIS DOES NOT RESOLVE YOR ISSUE, but is simpler to play with

use warnings;
use strict;
use Tk;
use Tk::NoteBook;
use Tk::Pane;


my $mw = MainWindow->new;
$mw->packPropagate(0);#->geometry('300x200');



my $frame = $mw->Scrolled( 'Frame',-background=>'purple', -scrollbars => "s")
                          ->pack(-expand=>1, -fill=>'both', -anchor=>'nw');
                          
my $nb_widget = $frame->NoteBook->pack(-expand=>1, -fill=>'both');

for (1..20){

            $nb_widget->add("page$_", -label=>"PAGE $_")
                        ->Scrolled("Text", -scrollbars => "e", -wrap => 'none')
                            ->pack(-expand => 1, -fill => 'both');;
}


MainLoop;