Help for this page

Select Code to Download


  1. or download this
        my ($prch,$pid) = @_;
  2. or download this
    sub component_window {
    my ($prch,$pid) = @_;
    ...
...
    my ($proc,$text) = @_;
    ...
}
  3. or download this
    sub component_window {
    my ($prch,$pid,$text)=@_;
    ...
  4. or download this
        ...
    my $tail = Tk::IO->new( 
       -linecommand => sub { tail_lines($prch, $text) });
    ...
}