my $mw = MainWindow->new;
my $noteframe = $mw->Frame();

my $book = $noteframe->NoteBook()->grid(-sticky=>'nsew')->pack(-expand => 1, -fill 			=> 'both');
my $page;
foreach my $i (1 .. 3)
{
my $page  = $book->add("$i", -label => "page_$i");

my $text = $page->Scrolled('Text', 
				     -scrollbars => 'e',
		  		     -background => #efefef'
				)->pack(-fill => 'both', -expand=>1);

		
$text->insert('end', "this is page $i");

}
$noteframe->pack(-expand => 1, -fill => 'both', -side => 'top');

MainLoop;