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

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

my $bw = $mw->Toplevel();
$bw->geometry("400x200");

my $book = $bw->NoteBook()->pack( -fill=>'both', -expand=>1 );
my $tab  = $book->add( "Sheet 1", -label=>"Tab #1" );
my $more = $tab->Scrolled("More", -scrollbars => "osoe",)->pack(-fill => "both", -expand => 1);

#####################################
# Add basic menu to Toplevel window.
#####################################
my $menu = $more->menu;
$bw->configure(-menu => $menu);

MainLoop;