$t->tagConfigure("ch_clr",-foreground=>"red");	
$t->tagAdd("ch_clr","$start","$end_pt");