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

In reply to Re: Tk::dirtree tree (path && links) by bbfu
in thread Tk::dirtree tree (path && links) by michaelg

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.