On Thu, Jul 17, 2008 at 12:05 PM, Huub Peters <[EMAIL PROTECTED]> wrote:
> Gabor Szabo wrote:
>>
>> So I am trying to write an editor using Wx.
>> The basic editing is in place, now comes the really interesting part.
>>
>> I would like to run the script being edited and provide a way for the
>> user to interact with it.
>> Basicall I'd like to have a console window in my application where
>> that is connected to
>> the STD IN/OUT/ERR to an external application.
>>
>> Any recommendation how should I do that?
>>
>> Gabor
>>
>>
>
> I think you could use Wx::Perl::ProcessStream for that. I've never used
> it but somebody ones showed me it's usage.
> I think it was designed to help getting a GUI on top of a command line
> program.
I tried this and while it looks good actually I have not received any of the
STDOUT events until the external program finished.
In addition the lines I received lack the trailing newline from the
actual output.
The external program is just the following perl script:
#!perl
use strict;
use warnings;
my $n = 10;
print "First line\n";
print "Going to sleep $n seconds\n";
sleep $n;
print "Finished sleeping\n";
and I am trying it on Ubuntu.
The code I used:
use base 'Wx::Frame';
sub new {
...
EVT_WXP_PROCESS_STREAM_STDOUT( $self, \&evt_process_stdout);
}
on_run {
my ($self) = @_;
$proc = Wx::Perl::ProcessStream->OpenProcess("$^X file.pl",
'MyName1', $self);
}
sub evt_process_stdout {
my ($self, $event) = @_;
$event->Skip(1);
my $process = $event->GetProcess;
my $line = $event->GetLine;
$output->AppendText($line . "\n");
return;
}
Gabor
