http://www.perlmonks.org?node_id=1008176

Phinix has asked for the wisdom of the Perl Monks concerning the following question:

Good day all,

I was looking for some help getting a scrolled Pane frame to move with mouse wheel binds. Basically I have a container frame, and inside that a scrolled Pane, and inside that an inner frame where I plan to put my stuff.

Here's a sample:

#!/usr/local/bin/perl -w use strict; use Tk; use Tk::Pane; my $mw = new MainWindow; my $containerframe = $mw-> Frame()-> form(-left => '%0', -right => '%1 +00', -top => '%0', -bottom => '%100'); my $scrollpane = $containerframe->Scrolled('Pane', -scrollbars => 'oe' +, -sticky => 'nsew')-> form(-left => '%0', -right => '%100', -top => +'%0', -bottom => '%100'); my $innerframe = $scrollpane->Frame()-> form(-left => '%0', -right => +'%100', -top => '%0', -bottom => '%100'); $innerframe-> Label(-text => "test\n")-> pack for 1 .. 112; MainLoop;

That is all well and good, only I've been having trouble with the syntax for adding a mouse wheel bind that will scroll the Pane and thus the inner content frame attached to it.