#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

###############################################################
# Anwendung des MessageDialogs
###############################################################
use Tk;                               # Tk package einbinden
use MessageDialog;                    # MessageDialog package
use strict;

my $message = "Dies ist eine Fehlermeldung. Schließen Sie " .
              "dieses Fenster durch einen Klick auf den " .
              "OK-Button.";

my $top = MainWindow->new();

my $md=MessageDialog->new($top);

### Widgets definieren
$top->Button(-text => "MessageDialog starten", 
      -command => sub { $md->start("Fehlermeldung", $message); 
	              })->pack();
$top->Button(-text => "Exit", 
             -command => sub { exit 0 } )->pack();
MainLoop;