my $tree = $mw -> new_ttk__treeview;
$tree -> heading ( "#1", -command => \&resort (\$sortflag, \@item) );