Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Tk POE SSL Win32 help

by hiseldl (Priest)
on Jul 30, 2003 at 13:14 UTC ( #279170=note: print w/ replies, xml ) Need Help??


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.

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!


Comment on Re: Tk POE SSL Win32 help
Download Code
Re: Re: Tk POE SSL Win32 help
by JamesNC (Chaplain) on Jul 30, 2003 at 13:27 UTC
    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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://279170]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (14)
As of 2014-08-27 14:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (241 votes), past polls