Re^7: convert a single thread application to multithread with GUI

Here is the basic idea, for a sliding buffer of 'x' lines:

#!/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]

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

Comment on Re^7: convert a single thread application to multithread with GUI Download Code

Replies are listed 'Best First'.
Re^8: convert a single thread application to multithread with GUI by ultibuzz (Monk) on Jul 12, 2007 at 13:42 UTC
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	[reply]
Re^9: convert a single thread application to multithread with GUI by zentara (Cardinal) on Jul 12, 2007 at 16:13 UTC
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	[reply]
Re^10: convert a single thread application to multithread with GUI by ultibuzz (Monk) on Jul 12, 2007 at 17:35 UTC
great tipp, i have learning perl/Tk and mastering Perl/tk at work, but i didn't look into mastering yet im still in the learning Book ;) kd ultibuzz	[reply]