#!/Perl/bin/perl

use strict;
use Tk;
use Tk::Notebook;

my $mw = MainWindow->new();

my $toplevel = $mw->toplevel();

# Die Menueleiste wird in den Kopf des Fensters gehaengt
my $menubar = $toplevel->Menu(-type => 'menubar');
$toplevel->configure(-menu => $menubar);
$mw->configure(-width => 500);
$mw->configure(-height => 200);