what the "on exit" binding?

[redsss]

I'm learning perl/tk programming - what tk binding can I use to call a function that does cleanup before closing the app when clicking on the X in the upper right?

I guess this would be the equivalent of the VB unload method.

 

[goodegod]

I'd use the window manager protocol command:

wm protocol . WM_DELETE_WINDOW <command>

Make sure that in command you call "exit." More information can be found here:

http://aspn.activestate.com/ASPN/docs/ActiveTcl/tcl/TkCmd/wm.htm#M28

 

[redsss]

Is there not just a simple way to declare an "onExit" callback function, using the bind method on the mainWindow?

 

[goodegod]

Nope. You can bind other windows with <destroy> and a command, but the program will exit before it executes the command on the toplevel "." window.

What I do sometimes, is I set the WM_DELETE_COMMAND to do nothing, then I'll have an "Exit" button or menu choice that calls cleanup routines.

 

[redsss]

Thanks for your help. I realize this is not a perl forum and I don't know TCL althought its not the only language that binds to Tk, but I think I figured out the way to do this in perl:

$mw->protocol('WM_DELETE_WINDOW' => sub { cleanup(); exit;} );

Look good?