#!/usr/local/bin/perl -w

use strict;
use Tk;
require Tk::DynaMouseWheelBind;

my $mw = new MainWindow;
my @scrollables = ('Tk::Pane');
$mw->DynaMouseWheelBind(@scrollables);

my $containerframe = $mw-> Frame()-> form(-left => '%0', -right => '%100', -top => '%0', -bottom => '%100');
my $scrollpane = $containerframe->Scrolled('Pane', -scrollbars => 'oe', -sticky => 'nsew')-> form(-left => '%0', -right => '%100', -top => '%0', -bottom => '%100');
$scrollpane = $scrollpane->Subwidget('scrolled');
my $innerframe = $scrollpane->Frame()-> form(-left => '%0', -right => '%100', -top => '%0', -bottom => '%100');
$innerframe-> Label(-text => "test\n")-> pack for 1 .. 112;

MainLoop;