Streaming into tk text widgets

[Scarborough]

Thanks to the monks for the answer to Streaming to a socket it worked brilliently when my client was working at the command promt.

while (defined($buf = <$sock>){
    print $buf;
}

However I have tried to display this in a Tk gui but the text does not display until all the data has been returned. This is what I have tried

use IO::Socket;

use Tk;

    my $mw = new MainWindow();
    my $b = $mw->Button(-text=>'GO', -command=>\&conn)->pack();
    my $t = $mw->Text()->pack();
    #$|++;
    #tie *OUT, 'Tk::Text', $t;

    $t->focus();
MainLoop;

sub conn{
    tie *STDOUT, 'Tk::Text',$t;
    $|++;

    $sock = new IO::Socket::INET(PeerAddr => 'myhost',
                             PeerPort => '800',
                             Proto    => 'tcp');
                        
    die unless $sock;
    
    while (defined($buff = <$sock>)){
        print $buff;
    }
    
}

Is it possible to get a live stream to the widget?

[si_lence]

Hi,
Did you check Update Text Widget during FTP in Perl/Tk this node?
I think it is about the same question

si_lence

[zentara]

You want to use Tk::fileevent. It is like IO::Select for Tk. This is untested, but should show you the idea. I'm not sure how your tie *STDOUT will work here. What fileevent does, is test for data in a filehandle, and if "readable", will read it and insert it into your Text widget. It is non-blocking, so your GUI will continue to run.

sub conn{
    tie *STDOUT, 'Tk::Text',$t;
    $|++;

    $sock = new IO::Socket::INET(PeerAddr => 'myhost',
                             PeerPort => '800',
                             Proto    => 'tcp');
                       
    die unless $sock;
   
#    while (defined($buff = <$sock>)){
#       print $buff;
#  }

$mw->fileevent($sock, 'readable', [\&fill_text_widget,$t]);
   
}


sub fill_text_widget {
          my($widget) = @_;
          $_ = <$sock>;
          $widget->insert('end', $_);
          $widget->yview('end');
}

[Scarborough]

Thanks to both of you for this help its given me the final piece to complete my little application.