use warnings;
use strict;
use Tk;
use Tk::Dialog;

# Das mw erzeugen
my $mw = MainWindow->new(-background => 'lightskyblue1');

my $status = 'Test Messagebox 0';
my $count = 0;
my $label = $mw->Label(-relief => 'ridge',
                       -textvariable => \$status);
$label->pack(-padx => 10, -pady => 10);

# Schliessen abfangen
$mw->protocol('WM_DELETE_WINDOW', \&DoExit);

# Und etwas Aktion
$mw->repeat(1000,\&Counter);

MainLoop;

sub Counter
 {
 # Hochzaehlen und Label-Widget updaten
 $count++;
 $status = 'Test Messagebox '. $count;
 } 
 
sub DoExit 
  {
  # Reaktion auf Schliessen des Fensters
  my $b_exit = $mw->messageBox(-message => 'Wirklich beenden?',
                               -icon => 'question',
                               -title => "aus is' und gar is'",
                               -type => "OkCancel",
                              );

  # hier wird das Ergebnis der Messagebox verarbeitet                              
  exit if ($b_exit =~ /ok/i);
  # sonst weiter machen
  }