$canvas->g_bind("<MouseWheel>", [ sub { my($D) = @_; print $D . "\n"; +}, Tkx::Ev("%D") ]); [download]
In reply to Re^2: Perl/Tkx Mousewheel by chiron in thread Perl/Tkx Mousewheel by chiron