Select Code to Download

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

...
$innerframe-> Label(-text => "test\n")-> pack for 1 .. 112;

MainLoop;

 error:window ".frame.notebook.page3.frame.frame.frame1.frame.pane" is
+n't packed
 at C:/Perl/site/lib/Tk/Widget.pm line 1218, <PLUGINS> line
...
 Tk::After::once at C:/Perl/site/lib/Tk/After.pm line 90
 [once,[{},after#38,idle,once,[{},packscrollbars]]]
 ("after" script)