Select Code to Download

-command => sub { resort (\$sortflag, \@item) ; }

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