#!/usr/local/bin/perl -w
use Tk 8.0;
use strict;

my $mw = MainWindow->new;            
$mw->geometry('350x175');            

my $menubar = $mw->Menu;            
$mw->configure(-menu => $menubar);    

my $file = $menubar->cascade(-label => '~Datei');     

$file->command(-label => 'Ausführen', -command => \&leeres_info_fenster);  
$file->command(-label => 'E~xit',     -command => \&ExitApplication);  

MainLoop;
# *****************************************************************************
# ** Sub LEERES INFO FENSTER **************************************************
# *****************************************************************************
sub leeres_info_fenster {
    my $popup = $mw->Dialog(
        -popover        => $mw,
        -title          => 'Leeres INFO Fenster',
        -bitmap         => 'Tk',
        -default_button => 'OK',
        -buttons        => ['OK'],
        -text           => "Diese Funktion ist noch\n".
                           "nicht aktiviert. \n",
        );
    $popup->resizable('no', 'no');
    $popup->Show();
}


# *****************************************************************************
# ** Sub Programm_Ausfuehren **************************************************
# *****************************************************************************
sub Programm_Ausfuehren {
    # Hier sollte ein Unterprogram (z.B. C:\TEST\TEST.PL), ausgeführt werden
        # sobald ich vorher den Button "Ausführen" gedrückt habe. Wie muss diese 
        # Routine hier kodiert werden?
}

# *****************************************************************************
# ** Sub ExitApplication ******************************************************
# *****************************************************************************
sub ExitApplication {
    my $dialog = $mw->Dialog(-text           => 'Anwendung wirklich beenden?',    
                             -bitmap         => 'question',
                             -title          => 'Anwendung verlassen?',
                             -default_button => 'Yes',
                             -buttons        => [qw/Yes No/],
                            );
    my $answer = $dialog->Show();
    if ($answer =~ /y/i){
        exit;
    }
    else {
    }
}