my $widget         = $text2->Subwidget("text") ;
 tie *STDOUT, ref $widget, $widget;