Select Code to Download

sub DisplayChapter
{
...

   $OutputText->pack(qw/-side bottom -fill both -expand 1/);
}