Skip Menu |
 

This queue is for tickets about the POE CPAN distribution.

Report information
The Basics
Id: 18991
Status: rejected
Priority: 0/
Queue: POE

People
Owner: Nobody in particular
Requestors: liphtier [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



X-Scanned-BY: AMaViS-ng at bestpractical
Resent-Date: Sun, 30 Apr 2006 10:56:40 -0400
MIME-Version: 1.0 (Apple Message framework v749.3)
X-Spam-Status: No, hits=-1.4 required=8.0 tests=BAYES_00,FORGED_RCVD_HELO,SPF_NEUTRAL
X-Mailer: Apple Mail (2.749.3)
Resent-Message-Id: <20060430084959.6677.qmail [...] lists.develooper.com>
Received-SPF: neutral (x1.develooper.com: 205.152.59.72 is neither permitted nor denied by domain of rcaputo [...] pobox.com)
Reply-To: liphtier [...] gmail.com
content-type: text/plain; charset="utf-8"; delsp="yes"; format="flowed"
Resent-To: bug-poe [...] rt.cpan.org
Received: from localhost (localhost.localdomain [127.0.0.1]) by diesel.bestpractical.com (Postfix) with ESMTP id DDF6A4D80D6 for <cpan-bug+poe [...] diesel.bestpractical.com>; Sun, 30 Apr 2006 10:56:56 -0400 (EDT)
Received: from la.mx.develooper.com (x1.develooper.com [63.251.223.170]) by diesel.bestpractical.com (Postfix) with SMTP id 766C04D8005 for <bug-poe [...] rt.cpan.org>; Sun, 30 Apr 2006 10:56:56 -0400 (EDT)
Received: (qmail 25488 invoked by alias); 30 Apr 2006 14:56:44 -0000
Received: from imf24aec.mail.bellsouth.net (HELO imf24aec.mail.bellsouth.net) (205.152.59.72) by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Sun, 30 Apr 2006 07:56:41 -0700
Received: from ibm68aec.bellsouth.net ([68.213.211.142]) by imf24aec.mail.bellsouth.net with ESMTP id <20060430145634.IEXX18699.imf24aec.mail.bellsouth.net [...] ibm68aec.bellsouth.net> for <bug-poe [...] rt.cpan.org>; Sun, 30 Apr 2006 10:56:34 -0400
Received: from eyrie.homenet ([68.213.211.142]) by ibm68aec.bellsouth.net with ESMTP id <20060430145633.DOWJ10163.ibm68aec.bellsouth.net [...] eyrie.homenet> for <bug-poe [...] rt.cpan.org>; Sun, 30 Apr 2006 10:56:33 -0400
Received: from [127.0.0.1] (abuse [...] localhost [127.0.0.1]) by eyrie.homenet (8.13.4/8.13.1) with ESMTP id k3UEuWr8002892 for <bug-poe [...] rt.cpan.org>; Sun, 30 Apr 2006 10:56:32 -0400 (EDT) (envelope-from rcaputo [...] pobox.com)
Delivered-To: cpan-bug+poe [...] diesel.bestpractical.com
Resent-From: Rocco Caputo <rcaputo [...] pobox.com>
Subject: POE::Component::Client::TCP + GTK2 + Win32 problem
Return-Path: <rcaputo [...] pobox.com>
X-Original-To: cpan-bug+poe [...] diesel.bestpractical.com
X-Spam-Check-BY: la.mx.develooper.com
Date: Sun, 30 Apr 2006 11:49:57 +0300
Message-Id: <24C8B66C-023F-46B1-8CA1-F9E6C4FD6EC6 [...] gmail.com>
To: poe [...] perl.org
Content-Transfer-Encoding: 7bit
From: ShurV <liphtier [...] gmail.com>
X-RT-Original-Encoding: US-ASCII
Content-Length: 2476
Download (untitled) / with headers
text/plain 2.4k
This script is simple client example The problem : This script works fine in Linux But On Windows it connects and reads nothing (doesn't print to STDOUT and doesn't display in UI) from server the simple server demo sends a Greeting Banner and current time Linux Perl v5.8.6 built for i386-linux-thread-multi POE 0.3301 Gtk2 1.062 Glib 1.120 Win32 Perl v5.8.7 built for MSWin32-x86-multi-thread POE 0.3401 Gtk2, Glib 1.100 #! /usr/bin/perl -w use strict; use Gtk2 -init; use Socket; use POE qw(Component::Client::TCP); use POE::Kernel { loop => "Glib" }; my $session = POE::Session->create ( inline_states => { _start => \&ui_start, ev_connect => \&Tconnect, ev_error => \&server_error } ); $poe_kernel->run(); sub ui_start { my ( $kernel, $session, $heap ) = @_[ KERNEL, SESSION, HEAP ]; Gtk2::Widget->set_default_direction("ltr"); my $window = Gtk2::Window->new( 'toplevel' ); $heap->{main_window} = $window; $kernel->signal_ui_destroy( $heap->{main_window} ); $window->set_border_width(10); $window->move(100, 50); #$window->set_size_request(800, 600); $window->set_title("POE TCP client on W32"); $window->signal_connect('delete_event', sub {exit;}); my $vbox = new Gtk2::VBox(0, 0); $window->add( $vbox ); my $textview = new Gtk2::TextView();# $textview->set_size_request(150, 150); $textview->set_editable( 1 ); $textview->set_wrap_mode ('char'); my $textbuff = $textview->get_buffer(); my $connbutton = new Gtk2::Button("Connect"); $connbutton->signal_connect( "clicked", $session->postback('ev_connect', {textbuff=>$textbuff})); my $sendbutton = new Gtk2::Button("Send !"); $sendbutton->signal_connect( "clicked", $session->postback ('ev_send')); $vbox->pack_start( $textview, 0, 0, 2 ); # expand, fill, padding $vbox->pack_start( $connbutton, 0, 0, 2 ); # expand, fill, padding $vbox->pack_start( $sendbutton, 0, 0, 2 ); # expand, fill, padding $window->show_all(); } sub Tconnect { my @data = @{$_[ARG0]}; my $textbuff = $data[0]{'textbuff'}; my $host = "127.0.0.1"; my $port = "12345"; print "Connecting...\n"; POE::Component::Client::TCP->new ( RemoteAddress => $host, RemotePort => $port, Domain => AF_INET, # Optional. ServerInput => sub { my $input = $_[ARG0]; print "from server: $input\n"; $textbuff->insert_at_cursor("from server: $input\n"); } ); print "Connected\n"; print "Reading\n"; return 1; } sub server_error { print "Server Error\n"; exit; }
MIME-Version: 1.0
In-Reply-To: <24C8B66C-023F-46B1-8CA1-F9E6C4FD6EC6 [...] gmail.com>
X-Mailer: MIME-tools 5.418 (Entity 5.418)
Content-Disposition: inline
Message-Id: <rt-3.6.HEAD-28263-1185150647-1292.18991-0-0 [...] rt.cpan.org>
References: <24C8B66C-023F-46B1-8CA1-F9E6C4FD6EC6 [...] gmail.com>
Content-Type: text/plain; charset="utf8"
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
X-RT-Original-Encoding: utf-8
Content-Length: 861
Download (untitled) / with headers
text/plain 861b
Which Perl distribution are you using? ActivePerl, Vanilla, Strawberry, Cygwin, ... ? I tried the latest ActivePerl, and there doesn't seem to be a PPM repository with Glib and Gtk2. Basically I need to reproduce the test environment with the latest of everything to duplicate the problem. Otherwise I can't fix anything. -- Rocco On Sun Apr 30 10:57:02 2006, liphtier@gmail.com wrote: Show quoted text
> > > This script is simple client example > The problem : > This script works fine in Linux > But On Windows it connects and reads nothing (doesn't print to STDOUT > and doesn't display in UI) from server > the simple server demo sends a Greeting Banner and current time > > Linux > Perl v5.8.6 built for i386-linux-thread-multi > POE 0.3301 > Gtk2 1.062 > Glib 1.120 > > > Win32 > Perl v5.8.7 built for MSWin32-x86-multi-thread > POE 0.3401 > Gtk2, Glib 1.100
MIME-Version: 1.0
In-Reply-To: <24C8B66C-023F-46B1-8CA1-F9E6C4FD6EC6 [...] gmail.com>
X-Mailer: MIME-tools 5.418 (Entity 5.418)
Content-Disposition: inline
Charset: utf8
References: <24C8B66C-023F-46B1-8CA1-F9E6C4FD6EC6 [...] gmail.com>
Message-Id: <rt-3.6.HEAD-30561-1205137125-554.18991-0-0 [...] rt.cpan.org>
Content-Type: text/plain
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
X-RT-Original-Encoding: utf-8
Content-Length: 26
No followup from reporter.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.