sub TMRefresh {
       #Required input TableMatrix object.
    return if (!$_[0]);
    $_[0]->configure(-padx =>($_[0]->cget(-padx)));
}