Re: How do I close all Tk::Tree

[hiseldl]

in reply to How do I close all Tk::Tree

Basically you have to hide every node except the root node, and then call autosetmode().

sub Add_Dirs
{
    my $tree = '/home';
    my ($File, $Temp, @Dir_List);
    @Dir_List =
    (
        '/',
        '/one',
        '/one/two',
        '/two',
        '/two/three',
        '/three',
        '/three/four',
        '/three/four/five',
        '/three/four/five/six',
    );

    foreach $File (@Dir_List)
    {
        $Temp = (split('/', $File))[-1];
        $Temp = $File unless defined $Temp;
        $Tree->add($File, -text => "$Temp");
        $Tree->hide(entry=>$File);
    }

    $Tree->show(entry=>$Dir_List[0]);
    $Tree->autosetmode();
}

This starts out with a (+) beside the root node, then when you expand the root node shows the next level in the tree each with a (+), then when you expand each node, it will show its children with a (+), etc.

--
hiseldl
What time is it? It's Camel Time!

[Anonymous Monk]

Excellent, Thats what I was looking for.
Thanks again!