momo33 has asked for the wisdom of the Perl Monks concerning the following question:
Hello Monks,
I try to get a Tkx application working with a socket. In Tk you can do this with
In Tkx fileevent would work like thismy $server = IO::Socket::INET->new( LocalPort => 7777, Type => SOCK_STREAM, Reuse => 1, Listen => 10 ); $mw->Tkx::fileevent($server, 'readable', sub { new_connection($server) + });
A more complete application is being discussed in http://perlmonks.org/index.pl?node_id=893831my $fh = Tkx::open("| @cmds <$null 2>\@1"); Tkx::fconfigure($fh, -blocking => 0); Tkx::fileevent($fh, readable => [\&readdata, $fh]);
does anyone know how to get a working socket system with Tkx?
Thanks
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: difference sockets in Tk and Tkx
by Corion (Patriarch) on Mar 19, 2011 at 08:14 UTC | |
by momo33 (Beadle) on Mar 19, 2011 at 10:34 UTC | |
Re: difference sockets in Tk and Tkx
by Anonymous Monk on Mar 19, 2011 at 22:57 UTC | |
by Anonymous Monk on Mar 20, 2011 at 07:01 UTC | |
by momo33 (Beadle) on Mar 20, 2011 at 14:48 UTC | |
by Anonymous Monk on Mar 20, 2011 at 14:56 UTC |
Back to
Seekers of Perl Wisdom