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", "", "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.


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
    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.