# Scrollable text area.
    my $scroll =
        $parent->Frame(-borderwidth => 2, -relief => 'ridge')
            ->pack(-expand => 1, -fill => 'both');
    my $text =
        $scroll->Scrolled('Text',
                          -scrollbars => 'e',
                          -width => 81, -height => 20)
            ->pack(-expand => 1, -fill => 'both');