Perl TK (multiple -command's on a single button)

[clueo8]

What I would like to do is have a button close my window (prompt_window), but also call a function (user_continue):

my $btn = $main -> Button (-text => 'Click Me',
-command => sub {$prompt_window -> destroy},
-command => \&user_continue)
-> pack ();

It only executes the last -command. Any help would be appriciated!

Tim

 

[PaulTEG]

move $prompt_window -> destroy into the sub that's called perhaps?

HTH
--Paul

cigless ...

 

[clueo8]

my prompt window isnt a global window, but another window created in a sub and it does not recognize it.

 

[Rieekan]

What about:

sub destroy_n_continue {
    $prompt_window->destroy;
    \&user_continue;
}

my $btn = $main -> Button (-text => 'Click Me',
-command => \&destroy_n_continue)
-> pack ();

- Rieekan

 

[clueo8]

I was able to get that to work as long as I moved my declaration to the top of my script file. I still would like to know for the future how to execute 2 commands in a -command, i know theres got to be a way!

 

[icrf]

Combining all the above, you could keep the sub anonymous, alright when it's still short.

my $btn = $main -> Button (-text => 'Click Me',
-command => sub { $prompt_window -> destroy; &user_continue;})
-> pack ();

________________________________________
Andrew