# read perldoc Tk::ExecuteCommand for the Adverised Widget section
my $ROText = $ec->Subwidget('text');
print "$ROText\n";

$ROText->configure(-scrollbars => 'osoe');