$tm->focus;
$tm->activate("topleft");

##</code><code>##

$tm->activate("topleft");
$tm->focus;

##</code><code>##

$tm->colWidth (0, 25);
print $tm->colWidth(), "\n";

##</code><code>##

0 25
##</code><code>##

$tm->colWidth (-10, 32);
$,="|";
print $tm->colWidth(), "\n";

##</code><code>##

0 25|-10 32|

##</code><code>##

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