use strict;
use warnings;
use Tk;
use Tk::NoteBook;

my ($starttime, $raisetime);

# Das mw erzeugen
my $mw = MainWindow->new();
$mw->Label(-text => '     Test für Karteireiter     ')->pack();

my $nb = $mw->NoteBook()->pack();

my $tab1 = $nb->add( "N1", -label => "Start", -createcmd => \&StartTime );
my $tab2 = $nb->add( "N2", -label => "Continue", -raisecmd => \&CurrentTime );
my $tab3 = $nb->add( "N3", -label => "End", -state => 'disabled' );

$tab1->Label( -textvariable => \$starttime )->pack();
$tab2->Label( -textvariable => \$raisetime )->pack();
$tab3->Button( -text => '   Quit   ', -command => sub{ exit; } )->pack();

MainLoop;

sub StartTime 
  { $starttime = "Gestartet " . localtime; }

sub CurrentTime 
  {
  $raisetime = " Reiter angeklickt " . localtime;
  $nb->pageconfigure( "N3", -state => 'normal' );
  }