#!/usr/bin/perl
use Tk;
use Tk::Text;

my $mw=tkinit;

my $text = $mw->Scrolled('Text')->pack;

$text->bind('<Return>',[sub { &check_limit   }]);

$mw->Button(-text=>'Press Me', -command=>sub {
     $text->insert('end',$i++."\n");
     $text->see('end');
     &check_limit;
  })->pack;

$mw->Button(-text=>'Exit', 
     -command=>sub {exit})->pack;

for (1..198){
$text->insert('end',$_."\n");
     $text->see('end');
}

MainLoop;

sub check_limit{
  $text->delete('1.0', "end -200 lines");
}
[download]

nice, but where to find suchs tuff like delete and co ?
i checked the Tk docs and they are really basic.
is there somewhere a good site for more detailed Tk docs and maybe some examples ?

kd ultibuzz

The book "Mastering Perl/Tk" is the best learning guide out there. Once you plow through that, you can search groups.google.com for snippets that have been posted before. Search for example: "Perl/Tk Text limit lines"

There is a tagline for one of the monks here, that goes something like: "99% of the code needed has already been written"...... you just need to search google and groups.google to find it.

I always do a groups.google.com search whenever I have a question about code or syntax..... I almost always find the answer. You will see the code I posted( original by Marc Dashevsky, in comp.lang.perl.tk )

---

I'm not really a human, but I play one on earth. Cogito ergo sum a bum