X Error of failed request:  BadIDChoice (invalid resource ID chosen for this connection)
  Major opcode of failed request:  55 (X_CreateGC)
  Resource id in failed request:  0xa00005
  Serial number of failed request:  575
  Current serial number in output stream:  574

##</code><code>##

use strict;
use warnings;

# The "use Tk" MUST be before "use POE"...
use Tk;
use Tk::DialogBox;
use POE;
use POE::Wheel::Run;

# Create GUI window...
my $top = $::poe_main_window;
$top->geometry('300x50');
$top->title("PID=$$");
$top->protocol('WM_DELETE_WINDOW', sub{exit});

# Create button to push...
$top->Button(-text=>'Push Me', -command=>sub{
	print STDERR "Asking User\n";
	print STDERR "Got: ", AskUser("PID=$$"), "\n";
})->pack;

my $session=_poeSetup();

# Go...
$poe_kernel->run();

sub _poeSetup {
	my $session = POE::Session->create(
		inline_states=>{
			KidOut => sub {
				my ($line, $wid) = @_[ARG0, ARG1];
				my $child = $_[HEAP]{Kids}{WID}{$wid};
				print STDERR $child->PID . " OUT: $line\n";
			},
			KidErr => sub {
				my ($line, $wid) = @_[ARG0, ARG1];
				my $child = $_[HEAP]{Kids}{WID}{$wid};
				print STDERR $child->PID . " ERR: $line\n";
			},
			KidClose => \&_DoClose,
			_start => sub {
				my $child = POE::Wheel::Run->new(
					Program => sub {
						system("sleep 10");
						print STDERR "Asking User\n";
						print STDERR "Got: ", 
							AskUser("PID=$$"),
							"\n";
					},
					StdoutEvent => 'KidOut',
					StderrEvent => 'KidErr',
					CloseEvent => 'KidClose',
				);
				$_[KERNEL]->sig_child($child->PID, '_DoSig');
				$_[HEAP]{Kids}{WID}{$child->ID} = $child;
				$_[HEAP]{Kids}{PID}{$child->PID} = $child;
			}
		},
	);
	return($session);
}

#################################
# POE Session Supporting Routines
#################################
sub _DoClose {
	my $wid = $_[ARG0];
	my $child = $_[HEAP]{Kids}{WID}{$wid};

	unless (defined $child) {
		print STDERR "wid $wid closed all pipes.\n";
		return;
	}

	print STDERR "wid $wid closed all pipes.\n";
	delete $_[HEAP]{Kids}{PID}{$child->PID};
}

sub _DoSig {
	print STDERR "pid $_[ARG1] exited with status $_[ARG2].\n";
	my $child = delete $_[HEAP]{Kids}{PID}{$_[ARG1]};

	return unless defined $child;

	delete $_[HEAP]{Kids}{WID}{$child->ID};
}

sub AskUser
{
	my $txt = shift || 'No text passed';
        print STDERR "$txt\n";

	my $top = $::poe_main_window;

	# Create a dialog box to ask user something...
	my $d = $top->DialogBox(
		-title=>"$txt",
		-buttons=>['Ok', 'Cancel'],
		-default_button=>'Ok',
	);

	# Add the entry widget where user will type the answer...
	my $e = $d->add('Entry', -width=>30, -show => '*')->pack;
	$d->add('Label', -text => "What is your favorite color?")->pack;
		
	my $ans = $d->Show();

	# If user didn't say ok...
	if ($ans ne "Ok") { die( "I give up, exiting...\n") };
	
	# Get & return what the user typed...
	my $pw = $e->get;
	return($pw);
}