#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Menu;
use Tk::More;
use Tk::NoteBook;

my $mw = MainWindow->new();
$mw->geometry("100x100+850+50");
$mw->iconify;

my $bw = $mw->Toplevel();
$bw->geometry("850x200+500+200");
$bw->bind('<Destroy>' => sub {exit;});
$bw->bind('<Escape>'  => sub {exit;});

my $book = $bw->NoteBook()->pack( -fill=>'both', -expand=>1 );

my $tab1  = $book->add( "Sheet 1", -label=>"Tab #1" );
my $more1 = $tab1->Scrolled("More", -scrollbars => "osoe" )->pack(-fill => "both", -expand => 1);
my $menu1 = $more1->menu;
$bw->configure(-menu => $menu1);
$more1->Load( $0 );

my $tab2  = $book->add( "Sheet 2", -label=>"Tab #2" );
my $more2 = $tab2->Scrolled("More", -scrollbars => "osoe" )->pack(-fill => "both", -expand => 1);
my $menu2 = $more2->menu;
$bw->configure(-menu => $menu2);
$more2->Load( $0 );

my $tab3  = $book->add( "Sheet 3", -label=>"Tab #3" );
my $more3 = $tab3->Scrolled("More", -scrollbars => "osoe" )->pack(-fill => "both", -expand => 1);
my $menu3 = $more3->menu;
$bw->configure(-menu => $menu3);
$more3->Load( $0 );

MainLoop;