Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

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.

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

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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://247010]
help
Chatterbox?
[Corion]: ... don't support server-side precompilation (which means the client has to compile all templates to Javascript themselves), or are giant frameworks that expect to do everything (which is not what I want)
[Corion]: I feel that there is a talk somewhere in there, either about the structure and parts, or how I used several parts to get a complete whole.
[Corion]: Maybe I can still find something that is compatible with handlebars.js (which has JS precompilation) but allows for two-way data binding (which is great for the UI)
[Corion]: Two-way data binding means that if you change something in a text box, the corresponding variable in your Javascript gets updated immediately as well, and if you then change the variable, the corresponding text box also gets updated
[Corion]: That is a horrible approach that was also taken by Access, but if you have hooks that prevent automatic saving to the database, it is incredibly handy

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2017-03-30 07:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (355 votes). Check out past polls.