in reply to problem with scrolled wigets

$t->delete(0, 'end');

[download]

In Section Seekers of Perl Wisdom