Select Code to Download

sub component_window {
    my ($prch,$pid) = @_;
...
        $proc->{tailwin}->insert('end' => $outstr);
        $proc->{tailwin}->see('end');
}

sub tail_lines {
        my ($proc,$text) = @_;
...
        $this->{tailwin}->see('end');
    }
}