use strict;
use Tk;
use Tk::TextConfig;

my $mw = MainWindow->new;
my $text = $mw->TextConfig(qw/Text -height 30/)->pack(qw/-expand 1 -fill both/);
for my $i (1..200) {
  $text->insertLink('end', 'Linktext', 'Some data');
  $text->insert('end', ". \n -");
}

foreach my $tag ($text->bindtags) {
  print "  bindtag tag '$tag' has these bindings:\n";
  print "    ", $text->bind($tag), "\n";
}

MainLoop();