in reply to Tk POE SSL Win32 help
If you just want Tk to get updated, you can add update after you insert your text. e.g.
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.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; } }
HTH.
--
hiseldl
What time is it? It's Camel Time!
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Tk POE SSL Win32 help
by JamesNC (Chaplain) on Jul 30, 2003 at 13:27 UTC |
In Section
Seekers of Perl Wisdom