in reply to How to reset the fields in perl tk

sub reset {
        $s300->deselect;
        $s310->deselect;
        $lb->delete(0,'end');
        $mw->update;
}

[download]

In Section Seekers of Perl Wisdom