Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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 exploiting the Monastery: (3)
As of 2016-09-25 20:15 GMT
Find Nodes?
    Voting Booth?
    Extraterrestrials haven't visited the Earth yet because:

    Results (472 votes). Check out past polls.