in reply to Re: Redraw windows
in thread Redraw windows
Thanks - it wasn't really what i searched for but it helped my find the answer - using fileevent:
NaSe#!/usr/bin/perl -w use Tk; open(CHILD, "perl script.pl|") or die "Nope: $!"; my $mw = new MainWindow; my $t = $mw->Text(-width => 80, -height => 25, -wrap => 'none'); $t->pack(-expand => 1); $mw->fileevent(\*CHILD, 'readable', [\&fill_text_widget, $t]); MainLoop; sub fill_text_widget { my($widget) = @_; $_ = <H>; $widget->insert('end', $_); $widget->yview('end'); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Re: Redraw windows
by Rich36 (Chaplain) on May 06, 2002 at 14:15 UTC |
In Section
Seekers of Perl Wisdom