Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 contemplating the Monastery: (6)
As of 2015-07-04 23:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls