http://qs321.pair.com?node_id=749615


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?