TK close window int signal

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

So i'm trying to set up signal handlers for the script i'm setting up. i'm currently having it catch normal-signals, error-signals, and old-interface-signals. Yeah there is some overlapping stuff but its not a big deal for me. So my question is when you close a normal tk window such as

use Tk;
$mw = new MainWindow; #Initialize main window
$mw->withdraw();
$mw->Popup;
MainLoop;
[download]

What signal is it recieving when you click the window close button on the upper right hand side?

Comment on TK close window int signal Download Code

Replies are listed 'Best First'.
Re: TK close window int signal by didier (Vicar) on May 29, 2011 at 09:23 UTC
`$mw->protocol('WM_DELETE_WINDOW',[\&stop]); sub stop{ $mw -> destroy; }` [download]	[reply] [d/l]
Re: TK close window int signal by Anonymous Monk on May 29, 2011 at 03:46 UTC
What signal is it recieving when you click the window close button on the upper right hand side? None. Tk doesn't use signals.	[reply]
Re^2: TK close window int signal by Anonymous Monk on May 29, 2011 at 03:58 UTC
To elaborate, MainLoop is responsible for processing GUI messages. Closing the last toplevel window, ends the MainLoop. `$ perl -MTk -e " tkinit->MainLoop; die qq[hi] " hi at -e line 1.` [download]	[reply] [d/l]
Re: TK close window int signal by deep3101 (Acolyte) on May 29, 2011 at 16:29 UTC
`[$mw->destroy]` [download]	[reply] [d/l]
Re: TK close window int signal by Stoney2005 (Acolyte) on May 30, 2011 at 23:29 UTC
well damn. i know i wrote a post earlier explaining what i tried. mehhh. well i did it now. `$mw->protocol('WM_DELETE_WINDOW',\&clean_exit);` the [] brackets threw me off and broke the code	[reply] [d/l]
Re^2: TK close window int signal by Anonymous Monk on May 31, 2011 at 01:54 UTC
There is no need for any of that, just call exit after MainLoop `Main ( @ARGV ); exit ( 0 ); sub Main { ... MainLoop; }` [download]	[reply] [d/l]


Syntactic Confectionery Delight
	PerlMonks