my $style1 = $tree-> ItemStyle ('text', -anchor => 'w', -font => 'Times 12',-justify => 'right');

$tree->ItemConfigure($self->treeEntryPath, $self->columnNo(), -text => $result , -style => $style1 )

##</code><code>##

my $style2 = $tree->ItemStyle ('text', -anchor => 'e', -font => 'Courier 16' -foreground => 'red', -justify => 'left');


$tree->ItemConfigure($self->treeEntryPath, $self->columnNo(), -text => $name , -style => $style2 )

##</code><code>##

$style1 = $baseObject->getItemStyle($tree, 'text',-anchor =>'nw', -fg => 'red');