Tk - intercepting alt-f4 and the like

strat has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,

I'm playing around a little bit again with Tk, and got the following problem:

If anybody just presses at the X at the upper right corner of the window or Alt+F4 (i mostly work under Win2k), the Window closes and the program finishes.

#!perl -w
use strict;
use Tk;

my $mw = MainWindow->new();
$mw->OnDestroy( \&ExitApplication );
MainLoop;

sub ExitApplication {
    print ("Exiting\n");
    # do some cleanup
}
[download]

With something like the code above, I could at least do some cleanup before quitting.

What I'm looking for: if somebody presses the X at the top right corner of the window or Alt-F4, I want a MsgBox to pop up and ask "Do you really want to quit (Yes/No)", and if the user presses the Button for "No", the program should continue running. With OnDestroy, I only know a way to quit, but not to go on.

Best regards and thanx in advance,
perl -le "s==*F=e=>y~\*martinF~stronat~=>s~[^\w]~~g=>chop,print"

Comment on Tk - intercepting alt-f4 and the like Download Code

Replies are listed 'Best First'.
Re: Tk - intercepting alt-f4 and the like by physi (Friar) on Mar 18, 2002 at 12:58 UTC
What you need is: `#!perl -w use strict; use Tk; my $mw = MainWindow->new(); $mw->protocol('WM_DELETE_WINDOW', \&ExitApplication); MainLoop; sub ExitApplication { print ("Exiting\n"); # do some cleanup }` [download] This should work, like you need it `----------------------------------- --the good, the bad and the physi-- -----------------------------------` [download]	[reply] [d/l] [select]
Re: Tk - intercepting alt-f4 and the like by rbc (Curate) on Mar 18, 2002 at 16:15 UTC
You could also do this ... `sub END { print "Exitting\n"; #do clean up }` [download] This should on any OS. You might want to do a search on the subs BEGIN and END.	[reply] [d/l]
Re: Tk - intercepting alt-f4 and the like by strat (Canon) on Mar 20, 2002 at 14:50 UTC
Btw: If anybody's interested, the cript with Quit-Query could look like: #!perl -w use strict; use Tk; use Tk::Dialog; my $mw = MainWindow->new(); $mw->protocol('WM_DELETE_WINDOW', \&ExitApplication); $mw->bind("<Alt-F4>", \&ExitApplication); # intercept Alt-F4, too MainLoop; sub ExitApplication { # Draw dialog yes\|no my $dialog = $mw->Dialog(-text => 'Do you really want to quit?', -bitmap => 'question', -title => 'Quit?', -default_button => 'Yes', -buttons => [qw/Yes No/], ); my $answer = $dialog->Show(); if ($answer =~ /y/i){ # maybe do some cleaning up and exit; } else { # continue } } # ExitApplication [download] Best regards, perl -le "s==F=e=>y~\martinF~stronat~=>s~[^\w]~~g=>chop,print"	[reply] [d/l]
Re: Tk - intercepting alt-f4 and the like by strat (Canon) on Mar 18, 2002 at 16:30 UTC
Thank you very much, physi, that was exactly what I was looking for.	[reply]


Pathologically Eclectic Rubbish Lister
	PerlMonks