Perl question

[Alexander Chuzhoy]

Hey,Mark.Your last advice seems nice-although I can't make it work.


Here's a sample:
$a=$mw->Checkbutton('-indicator'=>off,'-activebackground'=>green,'-border'=>15,'-text'=>green,-command=>sub {&action,$a},'-variable'=>\$buta)->place(-x=>10,-y=>10,-height=>40,-width=>40);



sub action {
destroy $_[0];
}
I guess the sintax isn't correct.But what exactly?

[Mark Grant]

I don't think you'll get away with an anonymous function in this case. You'll need an "action" function and pass parameters to it as an array as in "-command => [ \&action,$a ]"

Then you need your destroy in the "action" subroutine.

[Sheldon Plankton]

You could always ask the perlmonks.
http://www.perlmonks.org