Select Code to Download

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

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

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

0 25

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

0 25|-10 32|

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