$tree -> configure(heading => "#1", -command => sub { resort (\$sortflag, \@item) ; }
 );