Re: POE::Loop::Glib/Gtk2 trips over Wheel output

On Tue, 9 Mar 2010, Rocco Caputo wrote:

> I believe you may have encountered a known bug with a simple solution. 
> https://rt.cpan.org/Public/Bug/Display.html?id=53302
> Now if only we could somehow get that patch released....

Is the solution to be applied to POE itself or POE::Loop::Glib? Anything
I can do from 'userland'?

-- Mike

Mike Schilli
[email protected]

>
> -- 
> Rocco Caputo - [email protected]
>
>
> On Mar 9, 2010, at 03:10, [email protected] wrote:
>
>> I'm trying to combine POE with a Gtk2 event loop, but it seems that this
>> trips up POE, which then stops processing a wheel's output.
>> 
>> Below is a simplified example, which starts a Gtk2 loop and a Run Wheel
>> which counts to 10000, but POE stops processing its output after 420 and
>> then hangs (freezes GUI).
>> 
>> Funny thing is, you can even throw out the Gtk GUI parts, and it still
>> fails, as long as the "use Gtk2 '-init'" line is there. As soon as
>> that's gone, POE processes everything correctly.
>> 
>> Would be great if someone could comment on if I'm doing something weird.
>> 
>> -- Mike
>> 
>> Mike Schilli
>> [email protected]
>> 
>> #!/usr/local/bin/perl -w
>> use strict;
>> use Gtk2 '-init';
>> use POE::Kernel { loop => "Glib" };
>> use POE::Session;
>> use POE::Wheel::Run;
>> use POE::Filter::Stream;
>> 
>> POE::Session->create(
>> inline_states => {
>>   _start     => \&ui_start,
>>   play       => \&play,
>>   out        => \&stdout_handler,
>> });
>> 
>> $poe_kernel->run();
>> exit 0;
>> 
>> ###########################################
>> sub ui_start {
>> ###########################################
>> my ($kernel, $session, $heap) = @_[KERNEL, SESSION, HEAP];
>> 
>> $heap->{main_window} = Gtk2::Window->new ('toplevel');
>> $kernel->yield('play');
>> }
>> 
>> ###########################################
>> sub play {
>> ###########################################
>> my ($kernel, $session, $heap) = @_[KERNEL, SESSION, HEAP];
>> 
>> my $wheel =
>>   POE::Wheel::Run->new(
>>     Program     => sub { print "$_\n" for 1..10000; },
>>     StdoutFilter => POE::Filter::Stream->new(),
>>     StderrEvent => 'out',
>>     StdoutEvent => 'out',
>> );
>> 
>> $heap->{player} = $wheel;
>> }
>> 
>> ###########################################
>> sub stdout_handler {
>> ###########################################
>> my ($heap, $input, $wheel_id) = @_[HEAP, ARG0, ARG1];
>> print STDERR "$input\n";
>> }
>