Select Code to Download

-my $pane = $mw->Scrolled(qw/Pane -scrollbars osow/)->pack(
-  -expand => 'yes',
...
-);
-my $frame = $pane->Frame->pack();
+my $frame = $mw->Frame->pack();