Widget functions with arguments 2

[AMiSM]

Hi, all!
Is there any way to supply arguments to functions called with widgets?
e.g.
$button = $mw -> Button ( -command => \&do_this( this_way ) )

 

[Kirsle]

Yep.

my $button = $mw->Button (
   -command => [ \&do_this, 'something', 'to', $send ],
)->pack;

-command takes a list reference starting with the code reference and then a list of arguments to send to it. Also note that certain widgets always receive their own reference as $_[0] (I think Buttons do this, but other widgets don't), so that the first argument you send might be $_[1].

So it's always a good idea to print what @_ is when you're using this on a new type of widget for the first time to find out where everything is.

-command => [ sub {
   print "\@_ = @_\n";
}, 'arg1', 'arg2' ],

-------------
Cuvou.com | My personal homepage
Project Fearless | My web blog

 

[AMiSM]

I think I remember now, reading about the list thing.
Thanks again, man!

 

[AMiSM]

The brackets in...

-command => [ \&do_this, 'something', 'to', $send ],

...are they syntactical; required, or are you just using them as a "something-like-this" literary device?

 

[AMiSM]

Never mind, I figured it out