$tree->bind("<Button-4>", sub { $tree->yview('scroll',1,"units") });
    $tree->bind("<Button-5>", sub { $tree->yview('scroll',-1,"units") });