in reply to Re: Perl/Tkx Mousewheel
in thread Perl/Tkx Mousewheel
Using:
just gives me '-0' all the time$canvas->g_bind("<MouseWheel>", [ sub { my $wert = -($_[1]/120); $wert = '+' . $wert unless $wert =~ /^-/; print $wert . "\n"; }, Tkx::Ev('D') ]);
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Perl/Tkx Mousewheel
by Crian (Curate) on Mar 10, 2009 at 15:09 UTC |
In Section
Seekers of Perl Wisdom