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?
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Perl/Tkx Mousewheel
by chiron (Novice) on Mar 10, 2009 at 14:50 UTC | |
by Crian (Curate) on Mar 10, 2009 at 15:09 UTC |
In Section
Seekers of Perl Wisdom