Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^2: Perl/Tkx Mousewheel

by chiron (Novice)
on Mar 10, 2009 at 17:08 UTC ( #749653=note: print w/replies, xml ) Need Help??

in reply to Re: Perl/Tkx Mousewheel
in thread Perl/Tkx Mousewheel

I've worked out a solution to this problem, however I'm still slightly unsure of whats going on here. Thanks for your help.
$canvas->g_bind("<MouseWheel>", [ sub { my($D) = @_; print $D . "\n"; +}, Tkx::Ev("%D") ]);

Replies are listed 'Best First'.
Re^3: Perl/Tkx Mousewheel
by jethro (Monsignor) on Mar 10, 2009 at 17:47 UTC

    This seems to be a special two-parameter form for the binding (it uses an anonymous array), where the first parameter (or array value) is the sub as before, and the second furnishes the parameters for the sub. Tkx::Ev just does that. See for this explanation:

    Tkx lets us provide command callbacks as just a Perl function (the first four), or as a two element array (the last case). The first element is the Perl code to be called, while the second array element specifies parameters to pass to that code. The function "Tkx::Ev()" will expand its parameter ("%x %y" in this case) when the callback is invoked, which will perform the percent substitutions. These then are passed as parameters to our function.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://749653]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (3)
As of 2023-03-25 04:56 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (62 votes). Check out past polls.