Perl/Tk window->protocol question

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

Hello,

I am writing an event driven system wherein as one top level window is
closed, another pops up. I provide an Exit button on each window that
has it's own routine for cleaning up and exiting. If the user instead
clicks the upper right window cross hair to close the window, I still
want to go to the said cleaning up routine. The call below does not
work. $top of course is a Toplevel reference.

    $top->protocol( 'WM_DELETE_WINDOW',
                    \&my_clean_up_routine( $top, $another_parameter);
[download]

The call is fashioned after this example from http://www.lns.cornell.edu/~pvhp/ptk/ptkFAQ.html

   $window->protocol('WM_DELETE_WINDOW',\&your_exit_handler);
[download]

Perhaps the problem is that no parameters are allowed. I am guessing
that because the code below works in that if using it, the said cross
hairs will not close the window out, which breaks tradition.

   $window->protocol( 'WM_DELETE_WINDOW', \&Tk::NoOp);
[download]

Any ideas?

Comment on Perl/Tk window->protocol question Select or Download Code

Replies are listed 'Best First'.
Re: Perl/Tk window->protocol question by jdporter (Paladin) on Mar 17, 2006 at 18:06 UTC
Perhaps the problem is that no parameters are allowed. You've hit the nail on the head. `\&` takes a reference to the subroutine's implementation, whereas parameters are data that are passed at runtime. Probably the easiest way to achieve what you want here is to wrap your function call in another sub which doesn't require any arguments. This, in turn, can simply call your function, with arguments. Like so: `$top->protocol( 'WM_DELETE_WINDOW', sub { my_clean_up_routine( $top, $another_parameter ); } );` [download] (Pay close attention to the braces and parens in that example.) We're building the house of the future together.	[reply] [d/l] [select]
Re: Perl/Tk window->protocol question by zentara (Cardinal) on Mar 17, 2006 at 18:44 UTC
I think you may be looking for the square bracket form of callback `-command => sub { numpress( $i ) } # equals -command => [ \&numpress, $i ]` [download] so try `$top->protocol( DELETE_WINDOW', [\&my_clean_up_routine, $top, $another_parameter] ); [download]` [download] I'm not really a human, but I play one on earth. flash japh	[reply] [d/l] [select]
Re^2: Perl/Tk window->protocol question by mnooning (Beadle) on Mar 17, 2006 at 19:33 UTC
It worked. Outstanding! Thanks for the quick response, too.	[reply]