#!/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;

##</code><code>##

 error:window ".frame.notebook.page3.frame.frame.frame1.frame.pane" isn't packed
 at C:/Perl/site/lib/Tk/Widget.pm line 1218, <PLUGINS> line
39.
 at C:/Perl/site/lib/Tk/After.pm line 90

Tk::Error: window ".frame.notebook.page3.frame.frame.frame1.frame.pane" isn't pa
cked at C:/Perl/site/lib/Tk/Widget.pm line 1218, <PLUGINS> l
ine 39.
 at C:/Perl/site/lib/Tk/After.pm line 90
 Tk callback for pack
 Tk::After::once at C:/Perl/site/lib/Tk/After.pm line 90
 [once,[{},after#38,idle,once,[{},packscrollbars]]]
 ("after" script)