Select Code to Download

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

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

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


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

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