use strict;
use warnings;
use Tk;

my $mw = MainWindow->new(-title => "Bug?");
my $frame = $mw->Frame()
    ->pack(-side => "left", 
	   -expand => 1,
	   -fill => 'both');
my $text = $frame->Scrolled('Text')
    ->pack(-expand => 1,
	   -fill => 'both');

my $data;
for (my $i = 1; $i <= 20; $i++) {
    $data .= "abcdefghi $i \n";
}
$text->insert('end',$data);

$text->tagConfigure("invisible",-elide => 'true');
$text->tagAdd("invisible",'7.0','13.0');

MainLoop();