sub TreeEvent
{
    my($tree) = @_;
        
    return unless my $sl = $tree->info('selection');
    &$EventHandler($tree->info('data', $sl)) if $EventHandler;
}