reference to a function and a parameter in the same time 2

[CristianLuca]

hey guys , how can i pass a parameter to a function reference when i assign it. like

my $funcAddr = \&foo($param)


thanks

 

[KevinADC]

I don't think you can.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[ishnid]

( my $ref = \&foo )->( $param );

Not sure why you'd want to though.

 

[CristianLuca]

used in tk::widget { -command => \&foo }

but i have several widgets that use the same function but with different paramenters :

tk::widgeOne { -command => \&foo($paramWOne )}
tk::widgeTwo { -command => \&foo($paramWTwo )}
tk::widgeThree { -command => \&foo($paramWThree)}

 

[CristianLuca]

Ok i found the solution, solution has to be implemented in the lhs , it goes like this :

tk::widgeOne { -command => [\&foo, ($paramWOne] }
that is one of the ways

more@

http://search.cpan.org/~ni-s/Tk-804.027/pod/callbacks.pod

 

[CristianLuca]

too bad you can't edit :
typo : tk::widgeOne { -command => [\&foo, ($paramWOne] }

correct : tk::widgeOne { -command => [\&foo, $paramWOne] }

 

[prex1]

Be careful, luca, that form of callback will call your function with the value of the variable at the time of calling: this means that the variable must be global, as function [tt]foo[/tt] must know it, and have a meaningful value.
If by contrast you need to substitute with the value the variable has when you call [tt]tk::widgeOne[/tt], you need to do [tt]tk::widgeOne{-command=>[\&foo,Tk::Ev($paramWOne)]}[/tt]. Note however that I use this with [tt]Tkx::[/tt], not sure if it works the same with [tt]Tk::[/tt]


Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads