sub validate_browse { 
$tm->colWidth (-10, 32);
$tm->configure(-padx =>($tm->cget(-padx))); #display refresh trick,   
}