in reply to Perl/Tkx Mousewheel
In one of my programs i found this lines:
$mw->bind('<MouseWheel>', [ sub { my $wert = -($_[1]/120); $wert = '+' . $wert unless $wert =~ /^-/; animation_schalten($wert); }, Tk::Ev('D') ] );
Perhaps it helps?
In Section
Seekers of Perl Wisdom