Assuming Perl/Tk, see Tk::Scrolled.

c:\@Work\Perl\monks>perl -wMstrict -le
"use Tk;
 use Tk::ROText;
 ;;
 my $MW = tkinit;
 ;;
 my $row0p2 = $MW->Scrolled('ROText', -scrollbars => 'oe',
   qw(-height 8  -width 22  -wrap word),
   )->pack;
 ;;
 $row0p2->insert('end', '[  ' . 'long description  ' x 80 . ']');
 ;;
 MainLoop;
"
[download]