Re: Tk POE SSL Win32 help

[hiseldl]

If you just want Tk to get updated, you can add update after you insert your text. e.g.

sub send {
    tie (*SSL, "Net::SSLeay::Handle", "www.openssl.org", "443") 
      or die "error in tie\n";
    
    if (\*SSL) { print SSL "GET http://index.html \r\n"; }
    while (my $buf = <SSL>) {
      $txt->insert('end',$buf);

      ##### Update the Text Widget
      $txt->update;
    }
}

Or, if you want to update Tk while it is in a loop, possibly only idling, then try putting $mw->DoOneEvent; inside the loop. This may be what you need to do to get your app working with POE.

HTH.

--
hiseldl
What time is it? It's Camel Time!

[JamesNC]

Thanks for the suggestion. I tried your suggestion in the blocking example and also in the non-blocking example and it did not make a difference. But I appreciate the input.
JamesNC