Select Code to Download

Select or download this

        Wx::Event::EVT_COMMAND($panel, -1, $ID_OUR_EVENT, \&ourHandler
+)
sub ourHandler 
...
   my $textvalue =  Wx::GetTextFromUser($text, "some header", wxOK | w
+xCANCEL,$self ) ;
   #---> what to do here with the dialog text.
}

Select or download this

share (my $clientline);  # in the main code, referenced here for clari
+ty.

          my $event = new Wx::PlThreadEvent( -1, $ID_OUR_EVENT, $clien
+tline);
           Wx::PostEvent($panel, $event );

Select or download this

 local (*HIS_IN ,*HIS_OUT, *HIS_ERR, $childpid);
 use IPC::Open3;   
 $childpid=open3( *HIS_IN, *HIS_OUT, *HIS_OUT,$command);

Select or download this
```
  print HIS_IN $clientline . "\n";
```

Select or download this

use Wx::Perl::ProcessStream qw( :everything );

...
the startup (this replaces all the thread goo)
        my $proc1 = Wx::Perl::ProcessStream::Process->new($command, 's
+omelabel', wxperl_window)->Run;