qaz has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

I am making a Term::ReadLine based shell and I would like to put in some Tk windows and functionalities in it. The problem is the combination of the Tk main loop and readline...

Perldoc for Term::ReadLine says

... tkRunning
makes Tk event loop run when waiting for user input (i.e., during readline method). ...

but I can't really make it work and there is very little information on the subject.

Does anyone knows how to make Term::ReadLine an Tk play together?

Thanks in advance.

Replies are listed 'Best First'.
Re: Term::ReadLine and Tk
by qaz (Sexton) on Mar 16, 2008 at 07:31 UTC
    Well, apparently it is working...
    I feel silly, shouldn't have posted for this... 
    #!/usr/bin/perl 

use warnings;
use Term::ReadLine;
use Tk;

$mw = MainWindow->new;
$mw->geometry('500x400');
$mw->title ("Title");


my $term = new Term::ReadLine 'Perl shell';
my $OUT = $term->OUT || \*STDOUT;
$term->tkRunning(1);

while ( defined ($_ = $term->readline('Poil Shell >')) ) {
    my $res = eval($_);
    warn $@ if $@;
}

    [download]
[reply]
[d/l]
      That's cool to know, I've added it to my snippet collection. By the way, you can usually run 2 (or more) event-loop systems simultaneously, by having the master loop run a timer( at a fast interval ) to do a 1-loop update of all the slave loops.
      Read more... (14 kB)
      I'm not really a human, but I play one on earth. Cogito ergo sum a bum
[reply]
[d/l]
[select]
Re: Term::ReadLine and Tk
by my_nihilist (Sexton) on Mar 15, 2008 at 23:50 UTC
    How did you try?
[reply]

Back to Seekers of Perl Wisdom