sub OnNewPath{ 
 $tk{dir_tree}->delete('all'); #this little tinker now work
 $tk{dir_tree}->chdir( $dr{PATH} );}