TK close window int signal

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
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 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 deep3101 (Acolyte) on May 29, 2011 at 16:29 UTC
`[$mw->destroy]` [download]	[reply] [d/l]
Re: TK close window int signal by Stoney2005 (Novice) 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]


laziness, impatience, and hubris
	PerlMonks

TK close window int signal

The best material for plates (tableware) is: