use strict;
use warnings;
use Tk;
use Tk::NoteBook;
# Das mw erzeugen
my $mw = MainWindow->new();
$mw->Label(-text => '     Test für Karteireiter     ')->pack();

my $nb = $mw->NoteBook()->pack();
my $page1 = $nb->add('Page-1', -label => 'Text Widget');
my $page2 = $nb->add('Page-2', -label => 'Photo Widget');
my $page3 = $nb->add('Page-3', -label => 'Button Widget');

$page1->Scrolled("Text")->pack();

$page2->Photo('geiss', -file => "ziege.gif");
$page2->Label(-image => 'geiss')->pack();

$page3->Button(-text => ' ----- Quit ----- ', 
               -command => sub{$mw->destroy();})
            ->pack();
 
MainLoop();