###########################################################
#this not work
	my $e = $tree->add( $dir
	);
	
     $tree->itemCreate ($e, 0, 
			-itemtype => 'imagetext',
           -text => $text, -image => $tree->Getimage("folder"),
		   -style=> $Col0StyleA
            );
#this not work
###########################################################
#this work
#	my $e = $tree->add( $dir  , -text => $text, -image => $tree->Getimage("folder"),
#	);
#this work
###########################################################