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
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
Hallo,
grundsätzlich immer durch END:
oder ganz trivial durch Code hinter MainLoop :Code:# irgendwo im Code END{ print "Ende\n"; }
EDIT:Code:use strict; use warnings; use utf8; use Tk; my $mw = MainWindow->new; # krams MainLoop; print "Ende\n";
OnDestroy als Methode von Tk selbst. Alles in allem:
Code: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"; }
Geändert von Molaf (18-04-2011 um 10:22 Uhr)
Lesezeichen