Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: How do I close all Tk::Tree

by hiseldl (Priest)
on Mar 31, 2003 at 18:07 UTC ( #247010=note: print w/ replies, xml ) Need Help??

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.

What time is it? It's Camel Time!

Comment on Re: How do I close all Tk::Tree
Download Code
Replies are listed 'Best First'.
Re: Re: How do I close all Tk::Tree
by Anonymous Monk on Mar 31, 2003 at 18:22 UTC
    Excellent, Thats what I was looking for.
    Thanks again!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://247010]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2015-10-04 21:34 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (105 votes), past polls