Tk::dirtree tree (path && links)

michaelg has asked for the wisdom of the Perl Monks concerning the following question:

hello monks, regarding mhy last question , I'm still working on the dir tree , the next code initialize a tree from '/' or '.' ,
1. I'd like to be able to give a path => $dir=$full_path when I try to it I get an error message.
2. When I give '.' I cant 'climb back' the tree (..)
3. When a certain dir contain links to other dirs or if it is a link itself I get an empty tree.

sub dyntree_adddir {
    my( $tree, $dir ) = @_;

    my $text = $dir;
    $text = (split( "/", $dir ))[-1] unless $text eq "/";

    $tree->add( $dir, -text => $text, -image => $tree->Getimage("folde
+r") );
    $tree->setmode( $dir, -d $dir ? "open" : "none" );
}
[download]

<edit: castaway - added code tages and formatting>

Comment on Tk::dirtree tree (path && links) Download Code

Replies are listed 'Best First'.
Re: Tk::dirtree tree (path && links) by bbfu (Curate) on Sep 02, 2003 at 22:08 UTC
the next code initialize a tree from '/' or '.' , 1. I'd like to be able to give a path => $dir=$full_path when I try to it I get an error message. I'm afraid I really don't understand what you're asking here. 2. When I give '.' I cant 'climb back' the tree (..) If you set the root of the tree as anything other than the root directory, you have to provide a way move up to the parent directory. The easiest way is probably to set the root of the tree to the root directory, and then programatically navigate the tree to the correct directory, like so: `sub dyntree_openpath { my $tree = shift; my @dirs = split m!/!, shift(); my $cur = ''; foreach my $dir (@dirs) { $cur = join '/', $cur, $dir; $cur =~ tr{/}{/}s; dyntree_opendir($tree, $cur); } $tree->selectionClear(); $tree->selectionSet($cur); $tree->see($cur); }` [download] You may need to convert relative paths to absolute using File::Spec. 3. When a certain dir contain links to other dirs or if it is a link itself I get an empty tree. I'm assuming you're on a nix system. The -d operator and opendir should work transparently through symbolic links, so I can't imagine why it wouldn't be working. However, I don't have a nix system readily available, so I can't test it. You should probably add some error checking to dyntree_opendir(). bbfu Black flowers blossom Fearless on my breath	[reply] [d/l]

Replies are listed 'Best First'.

Re: Tk::dirtree tree (path && links)
by bbfu (Curate) on Sep 02, 2003 at 22:08 UTC

the next code initialize a tree from '/' or '.' ,
1. I'd like to be able to give a path => $dir=$full_path when I try to it I get an error message.

I'm afraid I really don't understand what you're asking here.

2. When I give '.' I cant 'climb back' the tree (..)

If you set the root of the tree as anything other than the root directory, you have to provide a way move up to the parent directory. The easiest way is probably to set the root of the tree to the root directory, and then programatically navigate the tree to the correct directory, like so:

sub dyntree_openpath {
  my $tree = shift;
  my @dirs = split m!/!, shift();
  my $cur = '';

  foreach my $dir (@dirs) {
    $cur = join '/', $cur, $dir;
    $cur =~ tr{/}{/}s;
    dyntree_opendir($tree, $cur);
  }

  $tree->selectionClear();
  $tree->selectionSet($cur);
  $tree->see($cur);
}
[download]

You may need to convert relative paths to absolute using File::Spec.

3. When a certain dir contain links to other dirs or if it is a link itself I get an empty tree.

I'm assuming you're on a *nix system. The -d operator and opendir should work transparently through symbolic links, so I can't imagine why it wouldn't be working. However, I don't have a *nix system readily available, so I can't test it. You should probably add some error checking to dyntree_opendir().

bbfu
Black flowers blossom
Fearless on my breath

[reply]
[d/l]