sub component_window {
    my ($prch,$pid,$text)=@_;
    ...