Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

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

by ultibuzz (Monk)
on Jul 12, 2007 at 11:34 UTC ( #626204=note: print w/ replies, xml ) Need Help??


in reply to Re^5: convert a single thread application to multithread with GUI
in thread convert a single thread application to multithread with GUI

cheers,
yeah shared FH i know.
but i encounter another problem, the TK- Scrolled object wich is used to display eat up all memory ;).
is there a way to limit the box to 1000 lines and then it shoud overwrite ?, so it will not write the memory full :D.

kd ultibuzz


Comment on Re^6: convert a single thread application to multithread with GUI
Re^7: convert a single thread application to multithread with GUI
by zentara (Archbishop) on Jul 12, 2007 at 12:07 UTC
    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"); }

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

      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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://626204]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (13)
As of 2015-07-01 19:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (19 votes), past polls