Beefy Boxes and Bandwidth Generously Provided by pair Networks Ovid
more useful options
 
PerlMonks  

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 http://perlmonks.org/index.pl?node_id=893831

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

Thanks

Comment on difference sockets in Tk and Tkx
Select or Download Code
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 +how_simple.pl 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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2014-04-21 05:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (491 votes), past polls