in reply to Binding Canvas with MouseWheel


I made an mistake (cut/paste), the binding should be:
Tk::bind($canvas, '<MouseWheel>', [ sub {$main->yview('scroll',-($_1 / +120) * 3,'units')}, Ev('D')]);

Thanks.

In Section Seekers of Perl Wisdom