Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

difference sockets in Tk and Tkx

by momo33 (Beadle)
on Mar 19, 2011 at 08:08 UTC ( #894122=perlquestion: print w/replies, xml ) Need Help??
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

my $server = IO::Socket::INET->new( LocalPort => 7777, Type => SOCK_STREAM, Reuse => 1, Listen => 10 ); $mw->Tkx::fileevent($server, 'readable', sub { new_connection($server) + });
In Tkx fileevent would work like this
my $fh = Tkx::open("| @cmds <$null 2>\@1"); Tkx::fconfigure($fh, -blocking => 0); Tkx::fileevent($fh, readable => [\&readdata, $fh]);
A more complete application is being discussed in

does anyone know how to get a working socket system with Tkx?


Replies are listed 'Best First'.
Re: difference sockets in Tk and Tkx
by Corion (Pope) on Mar 19, 2011 at 08:14 UTC

    I don't know neither Tk nor Tkx, but as a socket is a filehandle, you might be able to just give your socket handle to fileevent() in Tkx as well. What happened when you tried that?

      can not find channel named "IO::Socket::INET=GLOB(0x9184ed0)" at ./sps line 28. line 28: Tkx::fileevent( $server, readable => [\&new_connection, \$ser +ver] );
      Yes, I made the fileevent line Tkx-style.
Re: difference sockets in Tk and Tkx
by Anonymous Monk on Mar 19, 2011 at 22:57 UTC
        This may contain all information but my Perl and Tcl knowledge is insufficient to turn the info into working code. Sorry

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://894122]
Approved by GrandFather
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2016-10-22 09:50 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (294 votes). Check out past polls.