Perl/Tk: Routine beim Beenden des Programms/Gui's

[TB09]

Hallo zusammen,

kann mir jemand sagen, wie ich es schaffe, dass eine bestimmte Routine durchgeführt wird, wenn der Benutzer das erstellte GUI beendet (durch das Klicken des Kreuzes rechts oben (windows platform)).

Danke,

Thomas

[Molaf]

Hallo,

grundsätzlich immer durch END:

# irgendwo im Code
END{
print "Ende\n";
}

oder ganz trivial durch Code hinter MainLoop :

use strict;
use warnings;
use utf8;

use Tk;

my $mw = MainWindow->new;
# krams
MainLoop;
print "Ende\n";

EDIT:
OnDestroy als Methode von Tk selbst. Alles in allem:

use strict;
use warnings;
use utf8;

use Tk;

my $mw = MainWindow->new;

$mw->OnDestroy(\&Kaput);
MainLoop;
print "Ende\n";

END{
print "Fertig\n";
}

sub Kaput
{
print "Aus\n";
}