16 Jan
2007
16 Jan
'07
19:36
On Tuesday 16 January 2007 17:26, Karl Brandt wrote:
Ich habe eine Anwendung in Perl geschrieben und nun ein kleines (hoffentlich) Problem:
Wenn ich auf den Button klicke wird die sub ausgeführt. Soweit so gut.
Die sub soll nun aber auch angesprochen werden, wenn der Nutzer auf das kleine Kreuz (Fenster schließen) des KDE-Fensters klickt.
#!/usr/bin/perl use Tk;
$top=MainWindow->new(); $top->Button(-text => 'Fertich!', -command => \&programm_ende)->pack;
MainLoop; -1;
sub programm_ende() { print("Programm-Ende\n"); }
Kann evtl. einer helfen? "Mastering Perl/Tk" habe ich schon durchgeblättert
Seite 243: Window Properties Du suchst nach $top->protocol(WM_DELETE_WINDOW, sub {programm_ende; $top->destroy;}) oder so ähnlich Torsten